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

li809

14楼的更适合我用了,谢谢

tryq_zxf

没有多少爱心币，下不了呵。

bolixin

该论坛不泛许多热心的高手,只是人气不太旺

无痕

顶一个
原贴:  http://www.xdcad.net/forum/showt ... 1732626#post1732626


[iframe h=1000 w=100%]http://www.xdcad.net/forum/showthread.php?postid=1732626#post1732626[/iframe]

xmchy

第14楼的";;;修改多义线中指定线段的宽度 lsjjm
(defun c:test071 (/ a d p n )"这个程序要求修改一下,最好不要限定这些线一定是多义线,这样很不方便,

一生有你

最初由 lsjjm 发布
[B]

将原程序改变一下:[code]
(defun c:test ()
  (vl-load-com)
  (initget 7)
  (setq w (getreal "Input Width:"... [/B]

lsjjm
我怎么运行程序时有时候会出现错误（一开始修改了几个线段了，后来就有时候行，有时候不行）：
命令: test2
Input Width:100
Pick Polyline:; 错误: ActiveX 服务器返回错误: 未知名称: SETWIDTH

啵浪鼓

我喜欢程序运行是多选项，(entsel)这种单选在程序里能不用则不用，程序改成如下就可以解决楼上的出错信息，但是得到的结果只能将一多义线里的其中一条改成新的宽度，而其它的都未改变，希望大虾们再改一改！！！

(defun c:test (/ s si s1 p n )
  (setq no1 (ureal 1 "" "\n线宽" no1))
  (setq s (ssget '((0 . "LWPOLYLINE"))))
  (if s
   (progn
    (setq i 0)
    (while (< i (sslength s))
      (setq si (ssname s i))
      (setq sii (cdr (assoc 10 (entget si))))
      (setq s1 (vlax-ename->vla-object si)
        p (vlax-curve-getclosestpointto s1 (trans sii 1 0))
        n (fix (vlax-curve-getparamatpoint s1 p))
      )
      (vlax-invoke-method s1 'setwidth n no1 no1)
      (setq i (+ i 1))
    )
   )
  )
(princ)
)
(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)
)

xyp1964

[php]
;;;框选修改多义线某段线的线宽
(defun c:test (/ s si s1 p n)
  (setq        no1 (ureal 1 "" "\n线宽" no1)
        no2 (ureal 1 "" "\n第几段线" no2)
        s   (ssget '((0 . "*POLYLINE")))
        i   -1
  )
  (while (setq si (ssname s (setq i (1+ i))))
    (setq s1 (vlax-ename->vla-object si))
    (vlax-invoke-method s1 'setwidth (fix (- no2 1)) no1 no1)
  )
  (princ)
)
(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]

啵浪鼓

一个简单的矩形，或许我知道它的起始位置是从哪开始哪结束，但如果是较复杂的线段时，如何让用户知道哪条才是第几段线呢？（就算知道哪里开始哪结束，让用户一条一条的数，费时）这样还不如用(entsel)命令来选择我要加宽的那条边了

xyp1964

最初由 啵浪鼓 发布
[B]一个简单的矩形，或许我知道它的起始位置是从哪开始哪结束，但如果是较复杂的线段时，如何让用户知道哪条才是第几段线呢？（就算知道哪里开始哪结束，让用户一条一条的数，费时）这样还不如用(entsel)命令来选择我要... [/B]

[php]
23楼只是进行某种功能的探索，并没有任何实际的意义。
进一步探讨，任何实现以下功能：
1. 加宽第１条线的第１段线宽，……，加宽第ｎ条线的第ｎ段线宽
2. 间隔加宽多义线的每１段线宽
3. 如下图片[/php]

啵浪鼓

斑竹可否将第2个选项改成用户选择到多义线的哪个边就自动修改此边，而不用再让用户输入第几段呢？
如图片所示，这样将使用户在输入数值时迷惘。。。

狂刀

你们说的太高深，我不懂，我就会这个：．．．．．

zhitu

这是个老问题了

狂刀

27楼演示提供测试版程序

可框选的多义线局部片断宽度刷子
程序特色：
1。选择自动过滤多义线
2。自动识别参照多义线点选处宽度
3。跨多条多义线进行局部线宽修改，凡是在框选范围内的多条多 义线局部宽度都受改变，不再范围内的顶点宽度仍保持不变。
4。对闭合情况做了处理

详连接：
http://www.xdcad.net/forum/showt ... amp;threadid=376255

halutju

^_^