新手求助！

注意优雅

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

start4444

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

天凉好个秋

两点中间的中心线？？？

注意优雅

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

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

chenry676

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

注意优雅

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

对对，是这意思。

xj6019

回复速度有点太快

注意优雅

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

大佬，有办法吗

chenry676

转载;; 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

非平行的线，中线怎么做？