求lsp修改天正的管线编号
如题，输入数值，选中立管编号（可以多选，框选），使之增加或减小指定大小的数值比如加一或减一，同时可以指定文字距线距离。即图中的箭头第一项可以加减，第二项可以设定（不需加减）。本来是想找可以修改properties的命令，没找到，只找到一个change，不支持天正的数据。(defun c:dxff (/ aa)
(setq aa (entget (ssname (ssget) 0)))
(princ aa)
)用dxff获取的数据如下。
((-1 . <图元名: 7ff7f6b0a100>)
(0 . TCH_VPIPEDIM)
(330 . <图元名: 7ff7f6b09f00>)
(5 . 88)
(100 . AcDbEntity)
(67 . 0)
(410 . Model)
(8 . DIM_给水)
(62 . 3)
(100 . TDbEntity)
(46 . 0.0)
(47 . 100.0)
(68 . 1)
(100 . TDbSymbWithText)
(7 . _TWT_SERIAL)
(40 . 3.5)
(52 . 0.0)
(410 . TWT_TEXT)
(100 . TDbVPipeDim) (300 . ))
天正管线编号增加减少,可选择立管类型.见附件
bloodtempt 发表于 2015-1-8 08:36 static/image/common/back.gif
天正管线编号增加减少,可选择立管类型.见附件
感谢，这个实在是太好用了，还有“可选立管类型”功能，直接过滤！比自己筛选方便多了！ bloodtempt 发表于 2015-1-5 16:28 static/image/common/back.gif
天正管线编号增加减少,可选择立管类型.见附件
我把你的脚本改动了一下，求助怎么能连续执行+1功能（就是鼠标能连续点击+1的那种）(defun c:rd1 ()
(prompt "\n 选取要替换的立管:")
(setq ss (ssget '((0 . "TCH_VPIPEDIM")))
i 0)
(repeat (sslength ss)
(setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))
(vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))
(setq i (1+ i))
)
(princ)
) 不来白不来 发表于 2015-1-8 09:18 static/image/common/back.gif
我把你的脚本改动了一下，求助怎么能连续执行+1功能（就是鼠标能连续点击+1的那种）
可以办到,不过需要每次重置序号初始值 bloodtempt 发表于 2015-1-12 12:58 static/image/common/back.gif
可以办到,不过需要每次重置序号初始值
多谢回复，我已经解决一直点击+1的问题了(defun c:gh1 ()
(while t
(prompt "\n 选取需要+1的立管编号:")
(setq ss (ssget ":S" '((0 . "TCH_VPIPEDIM")))
i 0)
(setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))
(vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))
)
(princ)
) 做个标记，以后再来 不来白不来 发表于 2015-1-12 17:29 static/image/common/back.gif
多谢回复，我已经解决一直点击+1的问题了
恩,这样确实可以 做个标记，以后再来 感觉很好用呢
页:
[1]