管线扯旗

sunqv · 发表于 2020-12-6 07:54

(setq p1(getpoint "栏选第一点") p2(getpoint p1 "栏选第二点")) (entmakex (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)) ) (setq ss(ssget "f" (list p1 p2) '((0 . "*POLYLINE")))这个可以实现，多谢了

sunqv · 发表于 2020-12-7 17:44

本帖最后由 sunqv 于 2020-12-13 10:26 编辑

为什么layer的变量没有改变？

wzg356 · 发表于 2020-12-7 20:34

sunqv 发表于 2020-12-7 17:44
(setq p1(getpoint "栏选第一点") p2(getpoint p1 "栏选第二点"))
(entmakex (list '(0 . "LINE") ...

提示
(setq DATA1 (ENTGET EN); 不包含扩展数据的图形数据表

(setq DATA (ENTGET EN '("*"))) ;全部的图形数据表（包含DATA1+扩展数据等等）
取出扩展数据 (setq XDATA (CDR (ASSOC -3 DATA)))
取出图层(setq LAYER (cdr(assoc 8 DATA)))

另外1
(setq QDZB (DXF EN 10))==(setq ZDZB (DXF EN 10))
即QDZB=ZDZB，逻辑不通

另外2
函数DXF 没必要定义
(DXF EN 10)====(cdr(assoc 10 DATA))

你有些基本概念还不清楚
例如先把
(ENTGET EN)与(ENTGET EN '("*"))返回值区别
(assoc element alist)用法弄清楚

sunqv · 发表于 2020-12-7 21:35

头大。。。

慢慢来吧

sunqv · 发表于 2020-12-7 22:28

搞错图片了，这个xdata这样写没有问题，问题是在layer变量上，没有改变值

lee50310 · 发表于 2020-12-8 21:39

本帖最后由 lee50310 于 2020-12-15 17:27 编辑

问题是在layer变量上，没有改变值

把程式內這幾行改成這樣,試試看

sunqv · 发表于 2020-12-15 13:00

怎么把取得的选择集，按交点坐标排序？？？

54525596 · 发表于 2021-4-23 11:10

F拦选，碰到有线型的，比如虚线，空的位置拉选不到的

1025143880 · 发表于 2022-6-24 12:24

这是地下管线成图软件，正元。自带的功能啊

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

[提问] 管线扯旗

本帖子中包含更多资源

浏览过的版块