部落格我是耶穌基督後期聖徒教會的八德支會的教友，這裡只是自己喜愛的經文和福音天地，希望和大家分享 別忘了天父很愛我們 想看看我，每個安息日(週日)9:00~12:00歡迎來我們教會聚會 地址：桃園縣八德市介壽路二段1460號 電話：03-3681869
健亨網路行銷軟體開發租售
略晶網黎可路膘儲行凜解銷鎊歹軟亂京體挨店產們緘品莊遁超募禍強只費 虐唬強燭趁 桂慎強檬.踐圖.予.
補嚴
摔
腦相疚灘信肄健碑亨汾坍資址訊村悉 日能簍幫回無你宅達弛挾到舌成貿功箋陀關浴鍵
蠶迅
孰
木
靖躺
音健譜亨擴雲官雄端撰資蒂偉訊輕科鏈技轟仵:榨 耶w戲w塘w繕.埔g泌a楞氰m樞e妥w竹u億8聞8石8坯.拎n繳蒜e霄t援
芭
亢神
惟服揖務終項察咬目宛：邵電排腦廉資減潭訊惺 葬汽傍車當香用宋品歉 芒家押電昭用辮熒品誤
獸
迫
辨關泳鍵跳字埔排闊名貫邢軟囑體悼甕 鈾部彬落腹擻格努自今誦動陽發熬表躲通文七章籃軟桂昕體晝
蛋誣
榷
令發磺塢信粘軟弛脅體呻 媚部見頭落榆格撥自杆肆動涅回潔蒜應舀軟橡想體抱交 儲部憶落商植格匪自刪動坤焚留吏言時檀軟瞞村體舊
羌
性彭
佳網撤頁漾歪設助科計咚 燥關俗鴛鍵德字疥排趨嗡名瘧餐 繪部扭落尉圈格謹格衝爐人松戍氣吝諜流抗量仍皖軟腦唱體寄
址
廳疫
雛各蕉種埔客想譜製狐攏化幀糊軟錫體糊隆開名工發庭名 琜網命梗路亭命創鑫業謬耿廣婷謬告橘行摸埂銷停摹軟嵐體摹羹規汀蘑劃啊.蘑庚.烴.
更阿
模耕
錦
瀕秤
榔辣s晨搏k鄰y寸約p耶e孝:腕a綏0少9隕1腫7頒庭2撾0霄8牙7議8源4
蟄
拽
苟撾即洞時進螟通渙囂:把c供邵a瀝r杆翌o城霞l其9局彤9珍9嘟倘a
滅
桓校
擺記共梢住礫電嘎姻話承洗 琦他就頭會枕幫賭炭你竊實鞋踐般事購繕業預夢睦想
促補
窿代
粘洽肺鏟廣身辮告邁行寓撅銷蘸達寞非人擊枯0需吝9趙8澤鋪0飲讓-膛晰4羨衰2誓喧0泅折2層2耀坡3梁春吳估經攫理
我有一程式----畫平行線且於轉折處會作圓弧處理
但是用於CAD2010後就不能用了
請老師幫我看一看------可以嗎
缺失----1)無法閉合
2)PICKBOX-----會變小
3)無法畫圓弧
(defun anyerr(s)
(setq *error* olderr)
(setvar "CLAYER" clayer)
(setvar "OSMODE" osmode)
(setvar "PICKBOX" pickbox)
;;;; (command "UNDO" "END")
;;;; (command "U")
(princ)
)
(defun getmid(st et)
(setq midtempx (/ (+ (car st) (car et)) 2.0)
midtempy (/ (+ (cadr st) (cadr et)) 2.0)
)
(list midtempx midtempy)
)
(defun C:ANYDLINE(/ startpt firstss firstpt timer temppt midpt offdist offinput
offpt area1 area2 firstent secondss secondent v_timer
first_vpt1 first_vpt2 first_vpt3 second_vpt1 second_vpt2
second_vpt3 first_mid1 first_mid2 second_mid1 second_mod2
lastent lastlinept1 lastlinept2)
(setvar "CMDECHO" 1)
;;;;(command "UNDO" "GROUP")
(setq clayer (getvar "CLAYER")
osmode (getvar "OSMODE")
pickbox (getvar "PICKBOX")
olderr *error* *error* anyerr
)
(if (tblsearch "LAYER" "STEEL")(setvar "CLAYER" "STEEL"))
(setq startpt (getpoint "\n>>From point:") firstss (ssadd)
firstpt startpt timer 0)
(while (setq temppt (getpoint startpt "\n>>To point:"))
(command "LINE" startpt temppt "")
(setq midpt (getmid startpt temppt)
startpt temppt firstss (ssadd (entlast) firstss)
timer (1+ timer)
)
)
(command "PEDIT" (entlast) "Y" "J" firstss "" "")
(setq firstss (entlast))
(setq offdist (getvar "OFFSETDIST")
offinput (getdist (strcat "\n>>Input offset distance<"
(rtos offdist) ">:"))
)
(if offinput (setvar "OFFSETDIST" offinput)(setq offinput offdist))
(setq offpt (getpoint "\n>>Pick offset side point:"))
(command "OFFSET" offinput midpt offpt "")
(setvar "PICKBOX" 0);;;old soft
;;; (setvar "PICKBOX" 3)
(if (and (= (car firstpt)(car startpt))(= (cadr firstpt)(cadr startpt)))
(progn
(command "AREA" "E" (entlast))
(setq area1 (getvar "AREA"))
(command "AREA" "E" firstss)
(setq area2 (getvar "AREA"))
(if (> area1 area2)
(command "FILLET" "R" offinput "FILLET" "Polyline" (entlast))
(command "FILLET" "R" offinput "FILLET" "Polyline" firstss)
)
)
(progn
(setq secondss (entlast)
firstent (entget firstss)
secondent (entget secondss)
firstcount 0 secondcount 0
VertextNo (cdr (assoc 90 firstent))
timer 0
)
(while (/= (car (nth firstcount firstent)) 10)
(setq firstcount (+ firstcount 1))
)
(while (/= (car (nth secondcount secondent)) 10)
(setq secondcount (+ secondcount 1))
)
(repeat (- VertextNo 2)
(setq first_vpt1 (cdr (nth (+ firstcount (* timer 4)) firstent))
first_vpt2 (cdr (nth (+ firstcount (* (+ 1 timer) 4)) firstent))
first_vpt3 (cdr (nth (+ firstcount (* (+ 2 timer) 4)) firstent))
second_vpt1 (cdr (nth (+ secondcount (* timer 4)) secondent))
second_vpt2 (cdr (nth (+ secondcount (* (+ 1 timer) 4)) secondent))
second_vpt3 (cdr (nth (+ secondcount (* (+ 2 timer) 4)) secondent))
first_mid1 (getmid first_vpt1 first_vpt2)
first_mid2 (getmid first_vpt2 first_vpt3)
second_mid1 (getmid second_vpt1 second_vpt2)
second_mid2 (getmid second_vpt2 second_vpt3)
timer (1+ timer)
)
;;;; For find fillet direct
(if (inters first_mid1 first_mid2 second_vpt1 second_vpt2)
(command "LINE" first_mid1 first_mid2 "")
(command "LINE" second_mid1 second_mid2 "")
)
)
(setq v_timer 0)
(repeat (- VertextNo 2)
(setq lastent (entlast)
lastlinept1 (cdr (assoc 10 (entget lastent)))
lastlinept2 (cdr (assoc 11 (entget lastent)))
v_timer (1+ v_timer)
)
;;;; (command "ERASE" lastent "")
;;;; (if (/= v_timer (- VertextNo 2))(command "ERASE" (entlast) ""))
(command "FILLET" "R" offinput "FILLET" lastlinept1 lastlinept2)
(if (/= v_timer (- VertextNo 2))(command "OOPS"))
)
(setq first_vpt1 (cdr (nth firstcount firstent))
second_vpt1 (cdr (nth secondcount secondent))
)
(command "LINE" first_vpt1 second_vpt1 "" "PEDIT" firstss "J" "C"
first_vpt1 second_vpt1 "" "C" "")
)
;;;;;; For AutoCad R12
;; (progn
;; (setq secondss (entlast)
;; firstent (cdar (entget firstss))
;; secondent (cdar (entget secondss))
;; v_timer 0
;; )
;; (setvar "OSMODE" 0)
;; (repeat (1- timer)
;; (setq first_vpt1 (cdr (assoc 10 (entget (setq firstent (entnext firstent))))))
;; (setq first_vpt2 (cdr (assoc 10 (entget (setq firstent (entnext firstent))))))
;; (setq first_vpt3 (cdr (assoc 10 (entget (setq firstent (entnext firstent))))))
;; (setq second_vpt1 (cdr (assoc 10 (entget (setq secondent (entnext secondent))))))
;; (setq second_vpt2 (cdr (assoc 10 (entget (setq secondent (entnext secondent))))))
;; (setq second_vpt3 (cdr (assoc 10 (entget (setq secondent (entnext secondent))))))
;; (setq first_mid1 (getmid first_vpt1 first_vpt2)
;; first_mid2 (getmid first_vpt2 first_vpt3)
;; second_mid1 (getmid second_vpt1 second_vpt2)
;; second_mid2 (getmid second_vpt2 second_vpt3)
;; )
;; ;;;; For find fillet direct
;; (if (inters first_mid1 first_mid2 second_vpt1 second_vpt2)
;; (command "LINE" first_mid1 first_mid2 "")
;; (command "LINE" second_mid1 second_mid2 "")
;; )
;; (setq firstent (cdar (entget firstss))
;; secondent (cdar (entget secondss))
;; v_timer (1+ v_timer)
;; )
;; (repeat v_timer
;; (setq firstent (entnext firstent)
;; secondent (entnext secondent)
;; )
;; )
;; )
;; (setq v_timer 0)
;; (repeat (1- timer)
;; (setq lastent (entlast)
;; lastlinept1 (cdr (assoc 10 (entget lastent)))
;; lastlinept2 (cdr (assoc 11 (entget lastent)))
;; v_timer (1+ v_timer)
;; )
;; (command "ERASE" lastent "")
;; (if (/= v_timer (1- timer))(command "ERASE" (entlast) ""))
;; (command "FILLET" "R" offinput "FILLET" lastlinept1 lastlinept2)
;; (if (/= v_timer (1- timer))(command "OOPS"))
;; )
;; (setq firstent (cdar (entget firstss))
;; secondent (cdar (entget secondss))
;; first_vpt1 (cdr (assoc 10 (entget (setq firstent (entnext firstent)))))
;; second_vpt1 (cdr (assoc 10 (entget (setq secondent (entnext secondent)))))
;; )
;; (command "LINE" first_vpt1 second_vpt1 "" "PEDIT" firstss "J" "C"
;; first_vpt1 second_vpt1 "" "C" "")
;; )
;;;;;; For AutoCad R12
)
;;; Restore privious
(setq *error* olderr)
(setvar "CLAYER" clayer)
(setvar "OSMODE" osmode)
(setvar "PICKBOX" pickbox)
(princ)
)
歡迎至我的手工雜貨店~~ http://tw.myblog.yahoo.com/as85142 (雅虎奇摩) --------------------------------------------------------------------------------------
邦謙的繪本日記
來讀經文吧
另外的家
