源码 线转矩形

flyfox1047

zst1978

你好啊，在明经我中级会员，不能发信息，我好想加你微信或QQ，能不能告诉我你QQ号？

w245272914

程序与思路都不错，不错觉得没有什么实用价值，就是画斜矩形有点作用~

p-3-ianlcc

线转矩形2.LSP好像是會把轉成矩形的圖轉成「聚合線」，對嗎？

lucas_3333

支持源码！谢谢！

gcho

楼主的创意很好，这个画斜的矩形很方便！

enn09

楼主的创意很好，不过好像看过类似的

liquanfa619

有什么区别，这两个源码？

bai2000

改为单向偏移更好

Q1241274614

(defun c:TT ( / ang e end i lst p  ss sta)
  (if (not **W**) (setq **W** 1.00))
  (setq **W** (cond((getdist(strcat "\n输入宽度 <"(rtos **W** 2 2) ">: ")))(**W**)))  
   (if (setq ss (ssget '((0 . "LWPOLYLINE,LINE"))))
          (repeat (setq i (sslength ss))
                          (setq e   (ssname ss (Setq i (1- i)))
                              sta (vlax-curve-getStartPoint e)
                              end (vlax-curve-getEndPoint e)
                              ang (angle sta end)
                              lst (list (polar sta (+ ang (* 0.5 pi)) (* 0.5 **W**))
                                        (polar sta (- ang (* 0.5 pi)) (* 0.5 **W**))
                                        (polar end (- ang (* 0.5 pi)) (* 0.5 **W**))
                                        (polar end (+ ang (* 0.5 pi)) (* 0.5 **W**))
                                        )
                              )
(entmakex (append (list (cons 0 "LWPOLYLINE")
                        (cons 100 "AcDbEntity")
                        (cons 100 "AcDbPolyline")
                        (cons 90 (length lst) )
                        (cons 70 1 )
              )
              (mapcar(function (lambda (p) (cons 10 p))) lst)
              ))       
        (entdel e)
   ))
(princ)
)

香田里浪人

Q1241274614 发表于 2014-4-1 18:16
(defun c:TT ( / ang e end i lst p  ss sta)
  (if (not **W**) (setq **W** 1.00))
  (setq **W** (con ...

不错，有创意。有一定实用价值。

cxs259

楼主，能否改为由下往上单向偏移吗？

flyfox1047

cxs259 发表于 2014-4-2 09:05
楼主，能否改为由下往上单向偏移吗？

简单之极，但我只提供“渔法”，既然源码都有了，还不愿自己动动手么？