注意优雅 发表于 2021-6-30 16:47:06

新手求助！

如题，如何像海龙工具ZZ命令一样，俩点之间画出平行线中线。求助大佬来个源码:loveliness:

start4444 发表于 2021-6-30 21:10:17

两点之间的平行线中线。。。。到底是什么线

天凉好个秋 发表于 2021-7-1 08:47:49

两点中间的中心线？？？

注意优雅 发表于 2021-7-1 09:57:43

start4444 发表于 2021-6-30 21:10
两点之间的平行线中线。。。。到底是什么线

就是海龙工具的zz命令，在俩点的中间生成一个延申线

chenry676 发表于 2021-7-11 11:06:59

应该是两线中线，不是两点中线。

注意优雅 发表于 2021-7-20 22:04:50

chenry676 发表于 2021-7-11 11:06
应该是两线中线，不是两点中线。

对对，是这意思。

xj6019 发表于 2021-7-21 12:49:17

回复速度有点太快

注意优雅 发表于 2021-7-27 14:12:18

xj6019 发表于 2021-7-21 12:49
回复速度有点太快

大佬，有办法吗

chenry676 发表于 2021-8-9 17:46:59

转载;; pxxzx(平行线中线)
(defun c:pxxzx ()
(if (and (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
         (= (sslength ss) 2)
      )
    (progn
      (setq s1 (ssname ss 0)
            s2 (ssname ss 1)
            p1 (vlax-curve-getStartPoint s1)
            p2 (vlax-curve-getStartPoint s2)
            pt (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)
            p1 (vlax-curve-getclosestpointto s1 pt)
            dd (distance pt p1)
      )      
      (command "offset" dd "")
      (command "offset" "" (list s1 p1) pt "")
      (command"chprop" (entlast) "" "c" 1 "")
    )
)
(princ)
)

bai2000 发表于 2021-8-10 16:54:08

非平行的线，中线怎么做？
页: [1] 2
查看完整版本: 新手求助！