wjnnan 发表于 2014-3-13 23:11:17

将几种线型的线连接在一起，求高手指正

;;将arc,line,pline,spline连接----有bug
(DEFUN C:PD( / A ll i nn1 nn2 nn3 nn4 s1 list name)
   (setvar "CMDECHO" 0)
   (setq A (SSGET) )
   (setq ll (sslength a))
   (setq i 0)
   (setq nn1 "ARC")
   (setq nn2 "LINE")
   (setq nn3 "POLYLINE")
   (setq nn4 "spLINE")
   (repeat ll
   (setq s1 (ssname a i))
   (setq list (entget s1))
   (setq name (cdr (assoc 0 list)))
   (if (or (= namenn1) (= namenn2))
       (COMMAND "pedit" s1 "y" "j" "100" "w" "40" "" )
       (PROGN
       (if (= name nn4)
       (COMMAND "pedit" s1 "w" "0" "" )
            (COMMAND "pedit" s1 "j" "100" "w" "40" "" )
       )
       )
   )
   (setq i (1+ i))
   )
   )

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 wjnnan的微博

香田里浪人 发表于 2014-3-14 13:46:55

;多线连接
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 <右键选择集>: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
      (command "PEDITACCEPT" "1")
(if ss
      (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
      (command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
))

wjnnan 发表于 2014-7-2 10:43:28

香田里浪人 发表于 2014-3-14 13:46 static/image/common/back.gif
;多线连接
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 : ")


多谢，可以用
页: [1]
查看完整版本: 将几种线型的线连接在一起，求高手指正