Z坐标转0

newer

演示图片无意义
[sell=2]

2. 
   
3. (defun c:XDTB_Z0 ( / #endpoint #startpoint e ss typ)
   
4.   (xdrx_begin)
   
5.   (xdrx_prompt "\n选取Z变0的实体<退出>:")
   
6.   (if (setq ss (ssget '((0 . "*polyline,line,dimension,hatch,polygon"))))
   
7.     (progn
   
8.       (xdrx_setsstodb ss 0)
   
9.       (while (setq e (xdrx_getentdata 0))
   
10.         (setq typ (car (xdrx_object_classname e)))
    
11.         (if (= typ "LINE")
    
12.           (progn
    
13.             (xdrx_getpropertyvalue e "startpoint" "endpoint")
    
14.             (xdrx_setpropertyvalue e "startpoint" (list (car #startpoint)
    
15.                                                         (cadr #startpoint)
    
16.                                                         0.0
    
17.                                                   ) "endpoint"
    
18.                                    (list (car #endpoint) (cadr #endpoint)
    
19.                                          0.0
    
20.                                    )
    
21.             )
    
22.           )
    
23.           (xdrx_setpropertyvalue e "elevation" 0.0)
    
24.         )
    
25.       )
    
26.       (xdrx_prompt "\n处理了" (sslength ss) "个实体的Z坐标到0...")
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

<br /> (defun c:XDTB_Z0 ( / #endpoint #startpoint e ss typ)<br />   (xdrx_begin)<br />   (xdrx_prompt "\n选取Z变0的实体<退出>:")<br />   (if (setq ss (ssget '((0 . "*polyline,line,dimension,hatch,polygon"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq typ (car (xdrx_object_classname e)))<br />         (if (= typ "LINE")<br />           (progn<br />             (xdrx_getpropertyvalue e "startpoint" "endpoint")<br />             (xdrx_setpropertyvalue e "startpoint" (list (car #startpoint)<br />                                                         (cadr #startpoint)<br />                                                         0.0<br />                                                   ) "endpoint"<br />                                    (list (car #endpoint) (cadr #endpoint)<br />                                          0.0<br />                                    )<br />             )<br />           )<br />           (xdrx_setpropertyvalue e "elevation" 0.0)<br />         )<br />       )<br />       (xdrx_prompt "\n处理了" (sslength ss) "个实体的Z坐标到0...")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

[/sell]

st788796

确切说是投影到某一平面，一般指WCS，麻烦的是UCS下绘制的，而且实体再有XDATA 、扩展词典或者隶属于组等情况，权衡一下再用

liuyj

跟网上一搜一大把的比起来有什么增强的地方？

WhoCanSay

与我的相同，我也取名z0

anwil

如果能强制直接在z轴绘图就更完美。

newer

st788796 发表于 2016-6-16 16:03
确切说是投影到某一平面，一般指WCS，麻烦的是UCS下绘制的，而且实体再有XDATA 、扩展词典或者隶属于组等情 ...

本程序并没使用投影，直接修改实体的数据，不影响扩展实体等数据。

yoyoho

啥也不说了，感谢楼主分享哇！

URD911

不错 很实用的功能 感谢分享

CD2016

;;
;;==================================================================
;;程序名: AC_05
;;功能: 选取对象清除Z坐标值
;;==================================================================
;;
(defun C:AC_05 ( / save_worlducs ss1 j1 en1)
(setvar "cmdecho" 0)
(setq save_error *error*)
(setq *error* cyl_error1)
(if (setq ss1 (ssget))
(progn
(command ".undo" "be")
(princ "\n正在处理图形数据，请稍候．．．")
(terpri)
(setq save_worlducs (getvar "worlducs"))
(command ".ucs" "w")
(setq j1 0)
(repeat (sslength ss1)
(setq en1 (ssname ss1 j1))
(cyl_zerop_3 en1 0)
(setq j1 (+ j1 1))
);end repeat
(princ "\nOK，已将所选图元Z坐标值全部归零。")
(if (= save_worlducs 0) (command ".ucs" "p"))
(command ".undo" "e")
);end progn
);end if
(setq *error* save_error)
(princ)
);end defun C:AC_05
;;====================================================================
;;

好久没用CAD了，终于在这台老电脑上搜索到这段代码。