[LISP程序]：怎样改Pline的子段宽度

ydf7332462 · 发表于 2003-5-18 18:15:13

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

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

×

1 Pedit总是将Pline改成唯一宽度
2 怎样改Pline的子段宽度

ll_j · 发表于 2003-5-18 19:15:41

在Pedit中E选项可以修改，在R2002中还可以使用特性对话框修改（R14不可以）。
如果用程序修改，可以提取各点40、41组码修改。

aeo · 发表于 2003-5-18 20:55:27

"青铜长老"
写一个吧! :)
ctrl+1点着烦.

ll_j · 发表于 2003-5-20 19:59:19

这两天写了一个，可用于多义线局部改宽度，局部偏移、拷贝，大家可以试试。

lsjjm · 发表于 2003-5-22 09:48:52

似是班门弄斧,只求多快好省. 还是简捷实用好.
(defun c:test ()
  (vl-load-com)
  (setq a (entsel "Pick Polyline:"))
  (initget 7)
  (setq w (getreal "Input Width:"))
  (setq d (vlax-ename->vla-object (car a)))
  (setq p (vlax-curve-getclosestpointto d (trans (cadr a) 1 0)))
  (setq n (fix (vlax-curve-getparamatpoint d p)))
  (vlax-invoke-method d 'setwidth n w w)
);defun

zshutang · 发表于 2003-5-22 20:36:37

最初由 ll_j 发布
[B]在Pedit中E选项可以修改，在R2002中还可以使用特性对话框修改（R14不可以）。
如果用程序修改，可以提取各点40、41组码修改。 [/B]

我感觉R14也可以，不要属性对话框也行，即使2002也不能属性对话框就改了其中间段的宽度。

daxiaohua · 发表于 2009-2-3 09:43:47

非常感谢

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

[LISP程序]：怎样改Pline的子段宽度

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

相关帖子