求lsp修改天正的管线编号

不来白不来

如题，输入数值，选中立管编号（可以多选，框选），使之增加或减小指定大小的数值比如加一或减一，同时可以指定文字距线距离。即图中的箭头第一项可以加减，第二项可以设定（不需加减）。
本来是想找可以修改properties的命令，没找到，只找到一个change，不支持天正的数据。

2. (defun c:dxff (/ aa)
   
3. (setq aa (entget (ssname (ssget) 0)))
   
4. (princ aa)
   
5. )

(defun c:dxff (/ aa)<br /> (setq aa (entget (ssname (ssget) 0)))<br /> (princ aa)<br /> )

用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

天正管线编号增加减少,可选择立管类型.见附件

不来白不来

bloodtempt 发表于 2015-1-8 08:36
天正管线编号增加减少,可选择立管类型.见附件

感谢，这个实在是太好用了，还有“可选立管类型”功能，直接过滤！比自己筛选方便多了！

不来白不来

bloodtempt 发表于 2015-1-5 16:28
天正管线编号增加减少,可选择立管类型.见附件

我把你的脚本改动了一下，求助怎么能连续执行+1功能（就是鼠标能连续点击+1的那种）

2. (defun c:rd1 ()
   
3.         (prompt "\n 选取要替换的立管:")
   
4.         (setq ss (ssget '((0 . "TCH_VPIPEDIM")))
   
5.                 i 0)
   
6.         (repeat (sslength ss)
   
7.                 (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))
   
8.                         (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))
   
9.                 (setq i (1+ i))
   
10.         )
    
11.         (princ)
    
12. )

(defun c:rd1 ()<br />         (prompt "\n 选取要替换的立管:")<br />         (setq ss (ssget '((0 . "TCH_VPIPEDIM"))) <br />                 i 0)<br />         (repeat (sslength ss)<br />                 (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))<br />                         (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))<br />                 (setq i (1+ i))<br />         )<br />         (princ)<br /> )

bloodtempt

不来白不来 发表于 2015-1-8 09:18
我把你的脚本改动了一下，求助怎么能连续执行+1功能（就是鼠标能连续点击+1的那种）

可以办到,不过需要每次重置序号初始值

不来白不来

bloodtempt 发表于 2015-1-12 12:58
可以办到,不过需要每次重置序号初始值

多谢回复，我已经解决一直点击+1的问题了

2. (defun c:gh1 ()
   
3. (while t
   
4.   (prompt "\n 选取需要+1的立管编号:")
   
5.         (setq ss (ssget ":S" '((0 . "TCH_VPIPEDIM")))
   
6.                 i 0)
   
7.                 (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))
   
8.                 (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))
   
9. )
   
10.         (princ)
    
11. )

(defun c:gh1 ()<br /> (while t<br />   (prompt "\n 选取需要+1的立管编号:")<br />         (setq ss (ssget ":S" '((0 . "TCH_VPIPEDIM"))) <br />                 i 0)<br />                 (setq snum (atoi (vlax-get (vlax-ename->vla-object (ssname ss i)) 'VPipeNum)))<br />                 (vlax-put-property (vlax-ename->vla-object (ssname ss i)) 'VPipeNum (+ snum 1))<br /> )<br />         (princ)<br /> )

tranney

做个标记，以后再来

bloodtempt

不来白不来 发表于 2015-1-12 17:29
多谢回复，我已经解决一直点击+1的问题了

恩,这样确实可以

bzhjl

做个标记，以后再来

jun353835273

感觉很好用呢