新手求助！

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

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

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

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

账号		自动登录	找回密码
密码			注册

新手求助！

本帖子中包含更多资源