flyfox1047 发表于 2014-4-1 14:22:16

源码 线转矩形





zst1978 发表于 2020-8-20 04:35:19

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

w245272914 发表于 2017-12-21 10:53:58

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

p-3-ianlcc 发表于 2020-8-20 16:42:59

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

lucas_3333 发表于 2014-4-1 14:55:40

支持源码！谢谢！

gcho 发表于 2014-4-1 15:10:22

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

enn09 发表于 2014-4-1 15:59:48

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

liquanfa619 发表于 2014-4-1 16:35:41

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

bai2000 发表于 2014-4-1 17:37:20

改为单向偏移更好

Q1241274614 发表于 2014-4-1 18:16:56

(defun c:TT ( / ang e end i lst pss 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)
)

香田里浪人 发表于 2014-4-1 20:18:47

Q1241274614 发表于 2014-4-1 18:16 static/image/common/back.gif
(defun c:TT ( / ang e end i lst pss sta)
(if (not **W**) (setq **W** 1.00))
(setq **W** (con ...

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

cxs259 发表于 2014-4-2 09:05:36

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

flyfox1047 发表于 2014-4-2 11:42:31

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

简单之极，但我只提供“渔法”，既然源码都有了，还不愿自己动动手么？
页: [1] 2 3
查看完整版本: 源码 线转矩形