【转帖】请教
 

请教
www.dimcax.com
请教
请问： (while
(setq ptt (entsel "\n 請選擇需打橋位的位置(線、圓、弧):"))
(setq dd (getreal "\n 請輸入自由橋位的寬度<1.2>:"))
(if (null dd) (setq dd 1.2))
(setq pttname (car ptt) pt (cadr ptt))
(setq pttx (entget pttname))
(setq dxll (assoc 0 pttx))
(setq pt (osnap pt "nea")) (if (= pt nil) (exit))
(if (= dxll "line") (break_line))
(if (= dxll "arc") (break_arc))
)
中的 (if (= dxll "line") (break_line))
(if (= dxll "arc") (break_arc))为什么返回空？之前也写过这样的，但是返回line或是arc啊.请各位出手
勤能补拙

你的(setq dxll (assoc 0 pttx))
应为(setq dxll (cdr (assoc 0 pttx)))
gbg

哦，天啊。我一直在看下面的，没想到是上面的出错，谢谢老顾
勤能补拙