求助一个关于循环画线段的问题

sunqv · 发表于 2023-3-22 22:26:24

本帖最后由 sunqv 于 2023-3-22 22:27 编辑

我要的效果是，如果图中选中的线段的扩展属性中的起点埋深为空或者为0，则在起点线段的位置标注一条线出来，如果选中的线段的扩展属性中终点埋深为空，则在线段终点的位置标注一条线。
源文件见附件,为什么我用下面的命令执行后，不能实现把线段没有埋深的一端标注出来？下面的lsp选择多条线段后，只会标注选择的最后一条线段的终点埋深标注出来（不管是不是终点埋深为 0，都会标注出来）
求教大神解惑，不胜感激

(DEFUN C:QMS() ;缺埋深标注
(setq SS (SSGET '((8 . "*LINE") ) ))
(setq I 0) (REPEAT (SSLENGTH SS )
(setq EN (SSNAME SS I ))
(setq XDATA (CDR (ASSOC -3 (ENTGET EN '("*" ) ) ) ))
(setq LAYER (STRCAT (SUBSTR (DXF EN 8 ) 1 2 ) "MARK" ))
(setq QDZB (DXF EN 10))
(setq ZDZB (DXF EN 11 ))
(setq QDX (CAR(DXF EN 10)))
(setq QDY (CADR(DXF EN 10)))
(setq QDXY(LIST QDX QDY)))
(setq QDX1 (+ QDX 10))
(setq QDY1 (+ QDY 10))
(setq QDXY1 (LIST QDX1 QDY1))
(setq ZDX (CAR(DXF EN 11)))
(setq ZDY (CADR(DXF EN 11)))
(setq ZDXY (LIST ZDX ZDY))
(setq ZDX1 (+ ZDX 10))
(setq ZDY1 (+ ZDY 10))
(setq ZDXY1 (LIST ZDX1 ZDY1))
(setq ANG1 (ANGLE QDZB ZDZB ))
(setq ANG2 (ANGLE ZDZB QDZB ))
(setq QDMS (CDR (CAR (CDR (ASSOC "起点埋深" XDATA ) ) ) ))
(setq ZZMS (CDR (CAR (CDR (ASSOC "终点埋深" XDATA ) ) ) ))
(if (OR(= QDMS "0.00")(= QDMS "0")(= QDMS nil)) (command "_.line" QDXY QDXY1 ""))
(if (OR(= ZDMS "0.00")(= ZDMS "0")(= ZDMS nil)) (command "_.line" ZDXY ZDXY1 ""))
(PRINC )
(setq I (+ I 1 ))
)

masterlong · 发表于 2023-3-22 23:20:48

repeat的括号位置不对吧
另
代码排版整规整一点
这样可以减少犯错的几率

sunqv · 发表于 2023-3-22 23:55:39

我以前用在别的代码中就没问题的，求大神帮优化一下代码

springwillow · 发表于 2023-3-23 08:56:00

因为你repeat里只保存了最后一组坐标。仔细检查一下吧！

sunqv · 发表于 2023-3-23 09:44:19

能帮忙改一下吗？谢谢，真心不懂啊

lht · 发表于 2023-3-23 09:59:17

埋深是指某点地表以下的垂直深度，如基础埋深，标高是指以某基准面为起点向上的高度，如山顶标高。

sunqv · 发表于 2023-3-28 20:34:29

没人帮忙吗？真的很需要，求助万能的坛友帮忙了

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

[提问] 求助一个关于循环画线段的问题

本帖子中包含更多资源

点评