请教大神多段线能否特性匹配呢

chenpeng417 · 发表于 2017-3-19 19:10:23

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

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

×

请教大神多段线能否特性匹配呢？即将图片中的2和3多段线都刷成和1 一样的多段线，两头都是线宽300缩为100的三角形符号,谢谢，这个做钢结构的时候非常管用。

newer · 发表于 2017-3-19 19:24:30

2,3图片的宽度不一样，那么你1里面两端的加宽的宽度的规则是什么呢？

chenpeng417 · 发表于 2017-3-19 20:25:56

加宽规则是多段线，起点线宽300终点线宽100画300长，然后线宽100，长度不限，最后又是起点线宽100，终点线宽300长度300结尾。

chenpeng417 · 发表于 2017-3-19 20:27:42

希望能实现多段线之间像特性匹配一样互相刷，能变成类似1多段线一样的

newer · 发表于 2017-3-19 20:59:47

那还刷干什么啊，直接选择的多段线两头加上渐宽段不就行了？

chenpeng417 · 发表于 2017-3-19 21:26:09

希望是批量的，将很多相同线宽的多段线，一起变成两端含有三角形符号的多段线，如果一个一个加上去很麻烦

marting · 发表于 2017-3-20 09:10:34

不管多宽，中间最后都是变成100宽的吗？

eachy · 发表于 2017-3-20 14:34:38

marting 发表于 2017-3-20 09:10

虽然是特定应用，但是指定或者默认有个选择更灵活些

chenpeng417 · 发表于 2017-3-20 20:00:41

marting 发表于 2017-3-20 09:10

是的，两边都变成三角形符号

st788796 · 发表于 2017-3-20 20:38:53

(defun c:tt (/ e w ss)
(initget "I")
(if (and (setq e (xdrx_entsel "\n选择样本[输入宽度(I)]: " '((0 . "lwpolyline") (-4 . ">=") (90 . 4))))
(if (= (type e) 'STR)
(setq w (getdist "\n输入宽度: "))
(setq e (car e)
w (car (xdrx_getpropertyvalue e "widthsat" 1))
)
)
(not (zerop w))
(setq ss (ssget '((-4 . ">=") (43 . 0.0))))
)
(mapcar '(lambda (x / n)
(if (>= (xdrx_getpropertyvalue x "Length") (* 6 w))
(progn
(setq n (xdrx_getpropertyvalue x "NumVerts"))
(xdrx_setpropertyvalue x "ConstantWidth" w)
(if (< (xdrx_curve_getparamatdist x (* 3 w)) 1.0)
(progn
(xdrx_polyline_addvertexat x 1 (xdrx_curve_getpointatdist x (* 3 w)))
(xdrx_polyline_setwidthsat x 0 (* 3 w) w)
)
)
(if (< (1- n) (xdrx_curve_getparamatdist x (- (xdrx_getpropertyvalue x "Length") (* 3 w))) n)
(xdrx_polyline_addvertexat
x
n
(xdrx_curve_getpointatdist x (- (xdrx_getpropertyvalue x "Length") (* 3 w)))
0.0
w
(* 3 w)
)
)
)
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun c:tt (/ e w ss) 
  (initget "I") 
  (if (and (setq e (xdrx_entsel "\n选择样本[输入宽度(I)]: " '((0 . "lwpolyline") (-4 . ">=") (90 . 4)))) 
           (if (= (type e) 'STR) 
             (setq w (getdist "\n输入宽度: ")) 
             (setq e (car e) 
                   w (car (xdrx_getpropertyvalue e "widthsat" 1)) 
             ) 
           ) 
           (not (zerop w)) 
           (setq ss (ssget '((-4 . ">=") (43 . 0.0)))) 
      ) 
    (mapcar '(lambda (x / n) 
               (if (>= (xdrx_getpropertyvalue x "Length") (* 6 w)) 
                 (progn 
                   (setq n (xdrx_getpropertyvalue x "NumVerts")) 
                   (xdrx_setpropertyvalue x "ConstantWidth" w) 
                   (if (< (xdrx_curve_getparamatdist x (* 3 w)) 1.0) 
                     (progn 
                       (xdrx_polyline_addvertexat x 1 (xdrx_curve_getpointatdist x (* 3 w))) 
                       (xdrx_polyline_setwidthsat x 0 (* 3 w) w) 
                     ) 
                   ) 
                   (if (< (1- n) (xdrx_curve_getparamatdist x (- (xdrx_getpropertyvalue x "Length") (* 3 w))) n) 
                     (xdrx_polyline_addvertexat 
                       x 
                       n 
                       (xdrx_curve_getpointatdist x (- (xdrx_getpropertyvalue x "Length") (* 3 w))) 
                       0.0 
                       w 
                       (* 3 w) 
                     ) 
                   ) 
                 ) 
               ) 
             ) 
            (xdrx_pickset->ents ss) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2017-3-20 21:12:00

本帖最后由 newer 于 2017-3-20 21:13 编辑

来一个各个部分都允许设置长度宽度的版本，也适合任意段数，包括弧线的多段线。

钢结构两端加端头.gif

(defun c:tt ()
(defun c:tt () (defun _callback (key)
(cond
((= key "D")
(if (setq val
(getreal
(xdrx_prompt "\n端口起始宽度<" #poly-gjg-swidth ">:" t)
)
)
(setq #poly-gjg-swidth val)
)
)
((= key "S")
(if (setq val
(getreal
(xdrx_prompt "\n端口长度<" #poly-gjg-length ">:" t)
)
)
(setq #poly-gjg-length val)
)
)
((= key "V")
(if (setq val
(getreal
(xdrx_prompt "\n中间段宽度<" #poly-gjg-width ">:" t)
)
)
(setq #poly-gjg-width val)
)
)
)
(_prompt)
)
(defun _prompt ()
(xdrx_prompt
"\n当前设置：端口宽度(" #poly-gjg-swidth
") / 端口长度(" #poly-gjg-length
") / 中间宽度(" #poly-gjg-width
")"
)
)
(if (not #poly-gjg-swidth)
(setq #poly-gjg-swidth 300)
)
(if (not #poly-gjg-width)
(setq #poly-gjg-width 100)
)
(if (not #poly-gjg-length)
(setq #poly-gjg-length 300)
)
(_prompt)
(xdrx_begin)
(xdrx_initssget
"\n选择修改的多段线[端口宽度(S)/端口长度(D)/中间宽度(V)/<退出>:"
"S D V"
""
"_callback"
)
(xdrx_initget "S D V")
(if (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
(progn
(mapcar
'(lambda (x)
(setq ge (xdge::constructor x)
ges (xdge::getpropertyvalue ge "getcurvelist")
#length1 (xdge::getpropertyvalue (car ges) "length")
#length2 (xdge::getpropertyvalue (last ges) "length")
)
(xdrx_getpropertyvalue x "length")
(if (and (> #length1 (* 2 #poly-gjg-length))
(> #length2 (* 2 #poly-gjg-length))
)
(progn
(xdge::free ges ge)
(if (xdrx_object_isa x "AcDb2dPolyline")
(xdrx_polyline_convertfrom x)
)
(setq spt (xdrx_curve_getpointatdist x #poly-gjg-length)
ept (xdrx_curve_getpointatdist
x
(- #length #poly-gjg-length)
)
verts (xdrx_polyline_numverts x)
)
(xdrx_polyline_addvertexat x 1 spt)
(xdrx_polyline_addvertexat x verts ept)
(xdrx_setpropertyvalue x "constantwidth" #poly-gjg-width)
(xdrx_setpropertyvalue
x
"WidthsAt"
(list 0 #poly-gjg-swidth #poly-gjg-width)
)
(xdrx_setpropertyvalue
x
"WidthsAt"
(list verts #poly-gjg-width #poly-gjg-swidth)
)
)
(progn
(xdrx_prompt "\n多段线的起始段和结束段的长度小于设置，重试.")
)
)
)
(xdrx_pickset->ents ss)
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
 (defun c:tt ()  (defun _callback (key) 
    (cond 
      ((= key "D") 
       (if (setq val 
                  (getreal 
                    (xdrx_prompt "\n端口起始宽度<" #poly-gjg-swidth ">:" t) 
                  ) 
           ) 
         (setq #poly-gjg-swidth val) 
       ) 
      ) 
      ((= key "S") 
       (if (setq val 
                  (getreal 
                    (xdrx_prompt "\n端口长度<" #poly-gjg-length ">:" t) 
                  ) 
           ) 
         (setq #poly-gjg-length val) 
       ) 
      ) 
      ((= key "V") 
       (if (setq val 
                  (getreal 
                    (xdrx_prompt "\n中间段宽度<" #poly-gjg-width ">:" t) 
                  ) 
           ) 
         (setq #poly-gjg-width val) 
       ) 
      ) 
    ) 
    (_prompt) 
  ) 
  (defun _prompt () 
    (xdrx_prompt 
      "\n当前设置：端口宽度(" #poly-gjg-swidth 
      ") / 端口长度("         #poly-gjg-length 
      ") / 中间宽度("         #poly-gjg-width 
      ")" 
     ) 
  ) 
  (if (not #poly-gjg-swidth) 
    (setq #poly-gjg-swidth 300) 
  ) 
  (if (not #poly-gjg-width) 
    (setq #poly-gjg-width 100) 
  ) 
  (if (not #poly-gjg-length) 
    (setq #poly-gjg-length 300) 
  ) 
  (_prompt) 
  (xdrx_begin) 
  (xdrx_initssget 
    "\n选择修改的多段线[端口宽度(S)/端口长度(D)/中间宽度(V)/<退出>:" 
    "S D V" 
    "" 
    "_callback" 
  ) 
  (xdrx_initget "S D V") 
  (if (setq ss (xdrx_ssget '((0 . "*POLYLINE")))) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (setq ge       (xdge::constructor x) 
                 ges      (xdge::getpropertyvalue ge "getcurvelist") 
                 #length1 (xdge::getpropertyvalue (car ges) "length") 
                 #length2 (xdge::getpropertyvalue (last ges) "length") 
           ) 
           (xdrx_getpropertyvalue x "length") 
           (if (and (> #length1 (* 2 #poly-gjg-length)) 
                    (> #length2 (* 2 #poly-gjg-length)) 
               ) 
             (progn 
               (xdge::free ges ge) 
               (if (xdrx_object_isa x "AcDb2dPolyline") 
                 (xdrx_polyline_convertfrom x) 
               ) 
               (setq spt   (xdrx_curve_getpointatdist x #poly-gjg-length) 
                     ept   (xdrx_curve_getpointatdist 
                             x 
                             (- #length #poly-gjg-length) 
                           ) 
                     verts (xdrx_polyline_numverts x) 
 
               ) 
               (xdrx_polyline_addvertexat x 1 spt) 
               (xdrx_polyline_addvertexat x verts ept) 
               (xdrx_setpropertyvalue x "constantwidth" #poly-gjg-width) 
               (xdrx_setpropertyvalue 
                 x 
                 "WidthsAt" 
                 (list 0 #poly-gjg-swidth #poly-gjg-width) 
               ) 
               (xdrx_setpropertyvalue 
                 x 
                 "WidthsAt" 
                 (list verts #poly-gjg-width #poly-gjg-swidth) 
               ) 
             ) 
             (progn 
               (xdrx_prompt "\n多段线的起始段和结束段的长度小于设置，重试.") 
             ) 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

chenpeng417 · 发表于 2017-3-21 20:12:12

谢谢，厉害了我的哥！

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

[编程申请] 请教大神多段线能否特性匹配呢

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