userzhl 发表于 2009-3-9 12:44:00

[求助]哪位高手能解决这样的动态捕捉？

<p></p><p>(DEFUN c:tt (/ E_L GRR PT1 PT2 PT3 PT4)<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (COMMAND ".UCS" "n" "v")<br/>&nbsp; (SETQ PT1 (GETPOINT "\n左下角点 :"))<br/>&nbsp; (while (and (setq GRR (grread 7))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (not (member GRR '((2 32) (2 13) (11 0)))) ;_回车 空格 右键 退出<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (/= (car GRR) 3) ;_左键退出<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(= (type (cadr GRR)) 'list)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;(princ "\n右上角点 :")<br/>&nbsp;(setq PT3 (cadr GRR)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PT2 (LIST (CAR PT1) (CADR PT3))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PT4 (LIST (CAR PT3) (CADR PT1))<br/>&nbsp;)<br/>&nbsp;(if e_l<br/>&nbsp;&nbsp; (entdel e_l)<br/>&nbsp;)<br/>&nbsp;(command "._SOLID" "_none" Pt1 "_none" Pt4 "_none" Pt2 "_none"<br/>&nbsp;&nbsp; Pt3 "")<br/>&nbsp;(setq e_l (entlast))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (COMMAND ".UCS" "p")<br/>&nbsp; (PRINC)<br/>)</p>

userzhl 发表于 2009-3-16 23:47:00

没有人能解决吗?

vvc221 发表于 2009-9-28 11:25:00

<p>看樣子很難!</p>

xjf 发表于 2009-11-7 22:28:00

这功能很好，期待高手解决

xianaihua 发表于 2009-11-7 23:03:00

<p>和我做得粗糙度标注差不多</p><p></p>

xianaihua 发表于 2009-11-7 23:24:00

胡-志勇 发表于 2009-11-8 15:13:00

function XML() {
   
}

hen0 发表于 2009-11-9 15:18:00

很实用很好的功能，期待解析

ghgh0130 发表于 2009-12-2 08:36:00

很实用很好的功能，期待解析

ghgh0130 发表于 2009-12-2 08:42:00

很好的功能，期待解析
页: [1]
查看完整版本: [求助]哪位高手能解决这样的动态捕捉？