[求助]：如何修改多义线线段的宽度

陌生人 · 发表于 2003-11-17 19:01:28

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

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

×

如何编程实现
点取多义线的一段,并对其宽度进行修改?不改变其他段的宽度

希望大侠们出招

wzxzx · 发表于 2003-11-17 19:09:17

1给它断开使用编辑命令改变局部宽度
2从新画一t条每一段的宽度都可以任意设

陌生人 · 发表于 2003-11-17 22:43:48

你说的我当然会
这么做那还用编程申请干嘛?!

Tong · 发表于 2003-11-18 00:13:39

最初由陌生人发布
[B]你说的我当然会
这么做那还用编程申请干嘛?! [/B]

得到拾取点前后的索引值好像在论坛有, (fix (vlax-get-paramatpoint curve pt)) ?

Sets the start and end width of a polyline, given the segment index.

See Also | Example

Signature

object.SetWidth SegmentIndex, StartWidth, EndWidth

Object

LightweightPolyline, Polyline
The object or objects this method applies to.

SegmentIndex

Integer; input-only
An index specifying the segment whose width is to be set. The first segment is index 0.

StartWidth

Double; input-only
The start width for the specified segment.

EndWidth

Double; input-only
The end width for the specified segment.

Remarks

The segment index is the index of a particular segment of the polyline. For example, a polyline with three segments has segment indexes 0, 1, and 2.

Polyline: this method will fail if the polyline Type property is acCubicSplinePoly or acQuadSplinePoly.

陌生人 · 发表于 2003-11-18 03:45:44

感谢tong
自己写了一个,看看这样行不行:)
* 对选取的多义线线段宽度进行编辑,不改变其他段的宽度
* 包含出错处理
* 支持对非wcs坐标系下多义线编辑

陌生人 · 发表于 2003-11-18 03:49:04

程序
为fas和vlx两种版本
直接在cad加载

lsjjm · 发表于 2003-11-18 04:04:03

最初由陌生人发布
[B]如何编程实现
点取多义线的一段,并对其宽度进行修改?不改变其他段的宽度
希望大侠们出招 [/B]

修改多义线子段线宽:

(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

陌生人 · 发表于 2003-11-18 05:03:25

感谢lsjjm,欢迎探讨.
我的程序和你的主要思路是一样的,也曾用vlax-curve-getclosestpointto ,但是在调试中,我发现,使用
(setq p (vlax-curve-getclosestpointto d (trans (cadr a) 1 0))) (此处以你的为例) 在某些情况下有问题,无法准确取得所要的线段
但不知是哪里的原因,所以后来改用osnap,反而好使.
为什么呢?
欢迎探讨!
下付一测试图dwg. 坐标系为目标实体坐标系.

ydf7332462 · 发表于 2003-11-30 21:28:10

能改选到的某几段，不只是一段。好吗

lsjjm · 发表于 2003-12-1 06:07:34

最初由 ydf7332462 发布
[B]能改选到的某几段，不只是一段。好吗 [/B]

将原程序改变一下:

(defun c:test ()
(vl-load-com)
(initget 7)
(setq w (getreal "Input Width:"))
(while (setq a (entsel "Pick Polyline:"))
(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)
)
)

ARCH005 · 发表于 2004-6-14 16:21:40

一、使用方法：
1。把门窗名放在mc 层
2。加载yhb.lsp
3。执行mcb命令，按提示自动列出门窗表
二、另外yhb.lsp中尚有lb：四方形；pb：pline四方形；stp：画楼梯
ww：变线宽等命令不妨一试

CHC:变圆圈直径；CC：改图中元素的高度、厚度为0
text_align.lsp、WW、
+.lsp：CAD图中的加法程序，很实用。

dearjdz123 · 发表于 2004-11-4 02:17:11

到底是哪一个呀

li809 · 发表于 2005-2-16 21:48:31

11楼的好像不是这个问题的吧

xyp1964 · 发表于 2005-2-17 13:53:04

lsjjm  长老的程序不错，修改后增加宽度“记忆”功能：
[php]
;;;修改多义线中指定线段的宽度 lsjjm
(defun c:test071 (/ a d p n )
  ;(cmdla0)
  (setq no1 (ureal 1 "" "\n线宽" no1))
  (while (setq a (entsel "\n选择多义线 : "))
(setq d (vlax-ename->vla-object (car a))
   p (vlax-curve-getclosestpointto d (trans (cadr a) 1 0))
   n (fix (vlax-curve-getparamatpoint d p))
)
(vlax-invoke-method d 'setwidth n no1 no1)
  )
  ;(cmdla1)
)
(defun ureal (bit kwd msg def / inp)
  (if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
      bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
)
[/php]

狂刀 · 发表于 2005-2-17 18:27:59

全局变量建议复杂一点，不然可能被其它的程序“冲”掉

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

[求助] [求助]：如何修改多义线线段的宽度

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

相关帖子

Re: [求助]：如何修改多义线线段的宽度