二维多段线或多段线批量按从左到右从上到下连3dpoly三维多段线时z值为空，如何修改？

寒潮大冬瓜 · 发表于 2024-5-28 23:43

;XDDX等高线之间批量连线竖直按从左到右从上到下连3dpoly三维多段线波总指导
(DEFUN C:XDDX()(princ"XDDX块之间批量连线H竖直按从上到下从左到右连线波总QWQ")(XDDX2023)(princ))
(defun XDDX2023(/ e i p s ss)
(princ "XDDD图元之间批量竖直按从左到右从上到下连三维多段线波总")
(setvar "CMDECHO" 0)
(if (and (setq s (ssget))
;(if (and (setq s (ssget '((0 . "INSERT"))));兼容POINT点、圆circle、块INSERT等
(< 1 (sslength s))
(setq i -1)
)
(progn
(while (setq e (ssname s (setq i (1+ i))))
(setq RQW202405202324(cdr (assoc 10 (entget e))))
;(SETQ laynamA10(cdr (assoc 10 (entget (car laynamA00)))));获取所选图元A的端点10坐标xyz
(SETQ STRXA10 (rtos (car RQW202405202324) 2 16)) ;_内容X
(SETQ STRYA10 (rtos (cadr RQW202405202324) 2 16)) ;_内容Y
;(SETQ STRzA10 (rtos (caddr RQW202405202324) 2 16)) ;_内容z
(SETQ plineZ38 (cdr (assoc 38 (entget e)))) ;获取所选图元的标高值=高线高程Z值
(setq plineZ388(rtos plineZ38 2 16));标高值=等高线高程Z值
(SETQ plineZ38pt (strcat "("STRXA10" "STRYA10" "plineZ388")"));外观交点值XY坐标值与等高线高程值重新组合为XYZ值
;(princ RQW202405202324)
;(terpri);回行显示下一项屏显
;(princ plineZ38pt)
;(terpri);回行显示下一项屏显
;(cdr (assoc 10 (entget e)))
;(setq ss (cons plineZ38pt ss))
(setq ss (cons (cons STRXA10 (cons STRYA10 (cons plineZ388 NIL))) ss))
;(setq ss (cons (cons STRXA10 (cons STRYA10 (cons plineZ388 ))) ss))
;(setf ss (cons STRXA10 (cons STRYA10 (cons plineZ388 (cons ss nil)))))
(princ ss)
(terpri);回行显示下一项屏显
;(setq ss (cons (cdr (assoc 10 (entget e))) ss))
)
(setq ss ;
(vl-sort ss
'(lambda(a b)
(cond
((and (equal (cadr a) (cadr b) 1e-5) (< (car a) (car b))) T);按H竖向顺序排序关键语句
((> (cadr a) (cadr b)))
)
)
);Get-Att-ributes
)
(command "3dpoly" )
(foreach x ss (command "non" x))
(command "")
)
)
(setvar "CMDECHO" 1)
(princ)
)本来：
- (progn
- (while (setq e (ssname s (setq i (1+ i))))
- (setq ss (cons (cdr (assoc 10 (entget e))) ss))
- )就能顺利实施连线功能，而且还是图块直线文字等都能批量连线，就是面对多段线(等高线)有点遗憾！

guosheyang · 发表于 2024-5-30 06:37

看了半天没明白是啥是啥问题还没解决吗分享的代码用于哪方面至少要搞个动图图片或者dwg文件等的

寒潮大冬瓜 · 发表于 2024-5-31 00:00

guosheyang 发表于 2024-5-30 06:37
看了半天没明白是啥是啥问题还没解决吗分享的代码用于哪方面至少要搞个动图图片或者dwg文件等 ...

guosheyang大侠好！感谢指导！我本来有一个代码：
;XSSX块之间批量连线水平按从左到右从上到下连3dpoly三维多段线波总
(DEFUN C:XSSX()(princ"XSSS块之间批量连线水平V按从左到右从上到下连线波总QWQ")(XSSX2023)(princ))
(defun XSSX2023(/ e i p s ss)
(princ "XSSS块之间批量连线水平按从左到右从上到下连线波总")
(setvar "CMDECHO" 0)
(if (and (setq s (ssget))
;(if (and (setq s (ssget '((0 . "INSERT"))));兼容POINT点、圆circle、块INSERT等
(< 1 (sslength s))
   (setq i -1)
)
(progn
(while (setq e (ssname s (setq i (1+ i))))
(setq ss (cons (cdr (assoc 10 (entget e))) ss));
)
(setq ss
(vl-sort ss
'(lambda(a b)
   (cond
   ((and (equal (car a) (car b) 1e-5) (< (cadr a) (cadr b))) T);按V水平顺序排序关键语句
   ((> (car a) (car b)))
   )
   )
);GetAttributes
)
(command "3dpoly" )
(foreach x ss (command "non" x))
(command "")
)
)
(setvar "CMDECHO" 1)
(princ)
)
能把图元能获取特征值10的端点坐标(xyz)都能连3DPoly线(带xyz)，二多段线只有xy值，没有z值，我们就想提取38属性→标高值→糅合到xy值→形成xyz值→就能顺利画出连3DPoly线了！现在是这个“糅合”xyz的关键语句搞不好，辛苦大侠指导……一下

账号		自动登录	找回密码
密码			注册

[讨论] 二维多段线或多段线批量按从左到右从上到下连3dpoly三维多段线时z值为空，如何修改？