<圖元名: -279f28>，cons函數真心不會用，在線等，太急了(defun c:pwline( / )(setq pline_name (car(entsel"請選擇需要標注的多段線:")))(setq pline_content (entget(pline_name)))(setq l (length pline_content))(setq n 0)(setq zb (list '(a b)))(while (< n l)(setq el (nth n pline_content))(setq ele (car el))(if (equal ele 10)(setq zb (cons '(cdr el) 'zb)))(setq n (1+ n)));;;;;;;;;;;;;(setq l(length zb))(setq m 0)(while(< m l)(setq p (nth m zb))(command "circle" p 10));;;;;;;;;;;;;;)
1 回答
隔江千里
TA貢獻1906條經驗 獲得超10個贊
你的程序第三行中(entget(pline_name))是錯誤的，pline_name不應該有括號。
程序編寫過于復雜，簡化程序如下：
(defun c:pwline (/ pline_name pline_content c)
(setq pline_name (car (entsel "請選擇需要標注的多段線:"))
pline_content (entget pline_name)
c (assoc 10 pline_content)
)
(while c
(command "circle" (cdr c) 10)
(setq pline_content (cdr (member c pline_content))
c (assoc 10 pline_content)
)))
添加回答
舉報
0/150
提交
取消