給ACAD加個旋轉拷貝命令

旋轉拷貝命令

(defun c:rc (/ ent)

(princ "

笑一笑,世界變得更美妙! 我愛... 請選擇旋轉復制物體.")

(setq ent (ssget))

(command "copy" ent "" "@""@")

(command "rotate" ent "")

)

;單線變雙線命令

(defun c:wa (/ yong shi ya yb xy yx xa xb )

(setq shi (ssget))

(SETQ DIA1 (getreal "請輸入管的直徑:"))

(if (= nil DIA1) (setq DIA1 DIA))

(SETQ DIA DIA1)

(SETQ DIA2 (/ DIA1 2))

(setq yang (ssname shi 0))

(setq yan (cdr(assoc 10(entget yang))))

(setq yong (entget yang))

(command "offset" DIA2 shi yan "")

(setq xy(cdr (assoc 10 yong)))

(setq xa(car xy))

(setq ya(cadr xy))

(setq yx(cdr (assoc 11 yong)))

(setq xb(car yx))

(setq yb(cadr yx))

(command "mirror" "l" ""(list xa ya)(list xb yb)"")

(command "erase" shi "")

)