[推荐]：有用的Lisp小程序--直线z坐标归零

841594

作图时发生过有这样的情况吧：看起来两条直线有交点，却捕捉不上。这种问题经常是由于直线的两端点不在同一标高上引起的。但acad没有专门的命令处理这个问题。
要解决很简单，用下面的程序:

2. 
   
3. (defun c:cto( / ss n en ent p1 p2)
   
4.   (command "undo" "group")
   
5.   (setq ss (ssget '((0 . "LINE"))))
   
6.   (setq n 0)
   
7.   (while (setq en (ssname ss n))
   
8.     (SETQ ent (entget en)
   
9.           p1 (cdr (assoc 10 ent))
   
10.           p2 (cdr (assoc 11 ent))
    
11.           p1 (list (car p1) (cadr p1) 0.0)
    
12.           p2 (list (car p2) (cadr p2) 0.0)
    
13.           ent (subst (cons 10 p1) (assoc 10 ent) ent)
    
14.           ent (subst (cons 11 p2) (assoc 11 ent) ent)
    
15.     )
    
16.     (entmod ent)
    
17.     (setq n (1+ N))
    
18.   )
    
19.   (command "undo" "end")
    
20.   (PRINC)
    
21. )

<br /> (defun c:cto( / ss n en ent p1 p2)<br />   (command "undo" "group")<br />   (setq ss (ssget '((0 . "LINE"))))<br />   (setq n 0)<br />   (while (setq en (ssname ss n))<br />     (SETQ ent (entget en)<br />           p1 (cdr (assoc 10 ent))<br />           p2 (cdr (assoc 11 ent))<br />           p1 (list (car p1) (cadr p1) 0.0)<br />           p2 (list (car p2) (cadr p2) 0.0)<br />           ent (subst (cons 10 p1) (assoc 10 ent) ent)<br />           ent (subst (cons 11 p2) (assoc 11 ent) ent)<br />     )<br />     (entmod ent)<br />     (setq n (1+ N))<br />   )<br />   (command "undo" "end")<br />   (PRINC)<br /> )

CAD实体有*Line、ARC、Circle、Ellispe、Insert等等，这些实体还可能有除 10 11 组码之外的其他组码有 Z 值。 eachy

eachy

最初由 841594 发布
[B]作图时发生过有这样的情况吧：看起来两条直线有交点，却捕捉不上。这种问题经常是由于直线的两端点不在同一标高上引起的。但acad没有专门的命令处理这个问题。
要解决很简单，用下面的程序:

(defun c:cto( / ss ... [/B]

2. [php](defun c:test ()
   
3. (setvar "cmdecho" 0)
   
4. (command ".move" "all" "" "0,0,0" "0,0,1e99")
   
5. (command ".move" "p" "" "0,0,1e99" "0,0,0")
   
6. (princ)
   
7. )[/php]

[php](defun c:test ()<br /> (setvar "cmdecho" 0)<br /> (command ".move" "all" "" "0,0,0" "0,0,1e99")<br /> (command ".move" "p" "" "0,0,1e99" "0,0,0")<br /> (princ)<br /> )[/php]

841594

cool!
能解释一下这样做的道理么?

eachy

最初由 841594 发布
[B]cool!
能解释一下这样做的道理么? [/B]

也许是CAD的BUG，或者是浮点运算的缺陷。

ll_j

前几天讨论过。
http://www.xdcad.net/forum/showt ... y=&pagenumber=1