[分享]：选择易扩展操作、附加过滤的定制代码

wkai · 发表于 2004-3-17 22:18:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

1 将选择的TEXT修改为当前日期,用于更改图纸日期.
  (应xiaping 长老的要求)
[PHP]
("修改时间"
  (PROGN (SETQ SS X)
   (SETQ SDATE (RTOS (GETVAR "CDATE")))
   (SETQ SDATE (SUBSTR SDATE 1 8))
   (SETQ TMP (STRCAT (SUBSTR SDATE 1 4)
   "-"
   (SUBSTR SDATE 5 2)
   "-"
   (SUBSTR SDATE 7 2)
   )
   )
   (REPEAT (SETQ N (SSLENGTH SS))
   (SETQ EE (ENTGET (SSNAME SS (SETQ N (1- N)))))
   (if (= "TEXT" (dxf 0 ee))
      (progn
         (SETQ EE (SUBST (CONS 1 TMP) (ASSOC 1 EE) EE))
         (ENTMOD EE)
      )
   )
   )
  )
)
[/PHP]

wkai · 发表于 2004-11-22 13:44:14

1 按照多线长度的附加过滤代码（应wcf的要求）

("复线长度"
(progn
(setq x (vlax-ename->vla-object (ZF:EASYSEL:DXF -1 ZF_SENT)))
(vlax-curve-getDistAtParam x (vlax-curve-getendParam x))
)
)

关于多线的完整的过滤设置表

("LWPOLYLINE"
((-4 "复义线")
(38 "复线标高")
(43 "固定宽度")
(90 "顶点个数")
(39 "复线厚度")
(70 "是否闭合" ((0 "不闭合") (1 "闭合")))
)
("FJ"
("复线长度"
(progn
(setq x (vlax-ename->vla-object (ZF:EASYSEL:DXF -1 ZF_SENT)))
(vlax-curve-getDistAtParam x (vlax-curve-getendParam x))
)
)
)
)

andyhua5240 · 发表于 2004-11-22 15:39:17

建议斑竹整合到选择易的程序中，那样更好使，不用每次加载选择易的时候还要带上它的过滤设置文件，直接一个程序多好！
谢谢！

wcf · 发表于 2004-11-22 16:48:46

多线长度仅能用于2000以上版本吧，r14的也来一个，更通用一些。

wkai · 发表于 2004-11-22 17:36:46

最初由 andyhua5240 发布
[B]建议斑竹整合到选择易的程序中，那样更好使，不用每次加载选择易的时候还要带上它的过滤设置文件，直接一个程序多好！
谢谢！ [/B]

自己添加到设置文件中即可，不用每次都加载的。

to wcf:
今后不打算支持r14了。

wkai · 发表于 2004-11-22 20:50:13

过滤TEXT中特定位置文字数值

("定位测值" (PROGN (IF (= "TEXT" (ZF:EASYSEL:DXF 0 ZF_SENT))
(PROGN (SETQ TMP2 (ZF:EASYSEL:DXF 1 ZF_SENT))
(IF S1
(PROGN (PRINT TMP2)
(SETQ TMP0 (GETINT "\n测试起始位置<1>:")
TMP1 (GETINT "\n测试位数<至文字结束>:")
)
(IF TMP0
nil
(SETQ TMP0 1)
)
(IF TMP1
nil
(SETQ TMP1 nil)
)
)
)
(IF (>= (STRLEN TMP2) TMP0)
(SETQ TMP3 (ATOF (SUBSTR TMP2 TMP0 TMP1)))
(SETQ TMP3 (ATOF (SUBSTR TMP2 TMP0 TMP1)))
)
)
(SETQ TMP3 0.0)
)
TMP3
)
1
)

复制代码

TEXT过滤的完整代码

("TEXT" ((-4 "文字")
(1 "文字内容")
(7 "文字样式")
(10 "插入位置")
(40 "文字高度")
(71 "文字镜像" ((0 "默认") (2 "文字反向") (4 "文字倒置")))
(72 "水平对正"
((0 "左对正")
(1 "居中对正")
(2 "右对正")
(3 "对齐")
(4 "中间")
(5 "拟合")
)
)
(73 "垂直对正"
((0 "基线对正")
(1 "底端对正")
(2 "居中对正")
(3 "顶端对正")
)
)
)
("FJ" ("定位测值" (PROGN (IF (= "TEXT" (ZF:EASYSEL:DXF 0 ZF_SENT))
(PROGN (SETQ TMP2 (ZF:EASYSEL:DXF 1 ZF_SENT))
(IF S1
(PROGN (PRINT TMP2)
(SETQ TMP0 (GETINT "\n测试起始位置<1>:")
TMP1 (GETINT "\n测试位数<至文字结束>:")
)
(IF TMP0
nil
(SETQ TMP0 1)
)
(IF TMP1
nil
(SETQ TMP1 nil)
)
)
)
(IF (>= (STRLEN TMP2) TMP0)
(SETQ TMP3 (ATOF (SUBSTR TMP2 TMP0 TMP1)))
(SETQ TMP3 (ATOF (SUBSTR TMP2 TMP0 TMP1)))
)
)
(SETQ TMP3 0.0)
)
TMP3
)
1
)
("文字数值" (ATOF (ZF:EASYSEL:DXF 1 ZF_SENT)))
("倾斜角度" (ATOF (ANGTOS (ZF:EASYSEL:DXF 51 ZF_SENT))))
("旋转角度" (ATOF (ANGTOS (ZF:EASYSEL:DXF 50 ZF_SENT))))
)
)

复制代码

自由的鱼 · 发表于 2004-11-22 21:37:46

代码写的不错，看了很有启发！

xiaping · 发表于 2004-11-23 13:42:04

根据张老师的指点编写的代码，可以在不改变圆的圆心位置的情况下批量更改圆直径。
代码如下：("改直径" (PROGN
(SETQ SS X)
(SETQ TMP0 (getreal "给定新直径"))
         (SETQ TMP (/ TMP0 2))
         (SETQ N1 (SSLENGTH SS))
(REPEAT (SETQ N (SSLENGTH SS))
      (SETQ EE (ENTGET (SETQ E (SSNAME SS (SETQ N (1- N))))))
      (SETQ EE (SUBST
      (CONS 40 TMP)
      (ASSOC 40 EE)
      EE
         )
      )
      (ENTMOD EE)
)(print (strcat "已更改了" (rtos N1 2 1) "个圆的直径。"))
   )

)
将代码添加到：easysel_CMD.lsp文件中即可使用。

wcf · 发表于 2004-11-23 21:14:09

我用2002版本，把代码贴到easysel_filter.lsp里，加载后，执行多义线出现“选择对象: no function definition: ZF:EASYSEL:DXF”，不知是何原因？烦版主看一下，或把版本升级。

wkai · 发表于 2004-11-23 22:30:08

你用的是最新版的么？
原来版本中用的dxf函数经常和别人的冲突，所以改成了ZF:EASYSEL:DXF。
或者你将代码中的ZF:EASYSEL:DXF替换为dxf 也可以

wcf · 发表于 2004-11-24 12:04:08

是最新版，按上面改法，改了以后能用了，不知定位测值有何用途？
据我所知，选择易R14用户不少，虽今后不支持R14了，但烦版主写一个R14能用的多义线代码，让大家学习，作为大家对这个软件的支持。

wkai · 发表于 2004-11-24 20:57:06

R14版的复线长度附加过滤

("复线长度"
(progn
(command "._area" "o" (DXF -1 ZF_SENT))
(getvar "perimeter")
)
)

wcf · 发表于 2004-11-24 21:49:40

wkai版主的效率很高，好用!很是感谢版主为大家写出了这么一个好程序，不求回报，无私奉献!

gufengyin · 发表于 2005-11-26 01:18:24

可以作为学习之用

lingzhi0512 · 发表于 2005-12-9 22:14:32

添加自定义的过滤代码以后不能用了，提示：
no function definition: BUILD_DCL_COLUMN_FJ

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

[分享]：选择易扩展操作、附加过滤的定制代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

更改圆直径的后继命令