2条线，3条线，4条线的中心如何获取呢？

277283904

点选2条线时获取中心点，点选3条线时获取中心点，点选4条线时也可以获取中心点，框选也可以获取中心点。

就同时有框选和点选的功能！！！

飞雪神光

kzd2004 发表于 2024-8-19 16:26
大佬，请教你一下，用command调用extrim时怎样输入参数，成分感谢！

1. (command "_extend" "" (list ty pt) "")
   
2. (command "_.trim" "" (list ty pt) "")

(command "_extend" "" (list ty pt) "")<br /> (command "_.trim" "" (list ty pt) "")

夏生生

lht 发表于 2024-8-19 15:48
表述不清不明所述

他提问一向这样
都是acad的基操，不去学acad基础命令，张嘴就问

1. (defun c:tt  ()
   
2. (setq ss (ssget '((0 . "line"))))
   
3. (if (> (sslength ss) 2)
   
4.   (progn (command-s "pedit" "m" ss "" "y" "j" "" "")
   
5.          (setq en (entlast)
   
6.                pt (osnap (vlax-curve-getstartpoint en) "gcen"))
   
7.          (command-s "circle" pt 1)
   
8.          (command-s "explode" en))
   
9.   (progn (command-s "centerline" (ssname ss 0) (ssname ss 1))
   
10.          (setq en (entlast)
    
11.                pt (osnap (cdr(assoc 10(entget en))) "mid"))
    
12.          (command-s "circle" pt 1)
    
13.          (entdel en))))

(defun c:tt  ()<br /> (setq ss (ssget '((0 . "line"))))<br /> (if (> (sslength ss) 2)<br />   (progn (command-s "pedit" "m" ss "" "y" "j" "" "")<br />          (setq en (entlast)<br />                pt (osnap (vlax-curve-getstartpoint en) "gcen"))<br />          (command-s "circle" pt 1)<br />          (command-s "explode" en))<br />   (progn (command-s "centerline" (ssname ss 0) (ssname ss 1))<br />          (setq en (entlast)<br />                pt (osnap (cdr(assoc 10(entget en))) "mid"))<br />          (command-s "circle" pt 1)<br />          (entdel en))))

问题表述不清，靠猜的，此段代码仅用于演示用acad基本命令解决问题的流程，在所需点处画了个圆，结合捕捉，id，@，完全可以用acad自带命令解决问题，例如你要画线，两条线先用centerlin画出中心线，id mid再执行line命令@就可以了，最后删除中心线，当然这样有点啰嗦，id那一步可以去掉

lht

表述不清不明所述

飞雪神光

ssget就可以点选

kzd2004

飞雪神光 发表于 2024-8-19 16:00
ssget就可以点选

大佬，请教你一下，用command调用extrim时怎样输入参数，成分感谢！

tranque

高版本CAD自带捕捉几何中心吧

你有种再说一遍

什么是中心点?
包围盒中点?
角点交叉线的交点吗?

三角形就更多了,质心?内心?外心?垂心?
https://zhidao.baidu.com/questio ... wer/3046823276.html

277283904

lht 发表于 2024-8-19 15:48
表述不清不明所述

谢谢您的热心解答，是我表述不清楚，己更新了图片和文件，不知道这样是否能表述清楚

277283904

夏生生 发表于 2024-8-19 17:05
他提问一向这样
都是acad的基操，不去学acad基础命令，张嘴就问

谢谢您的热心解答，是我表述不清楚，己更新了图片和文件，不知道这样是否能表述清楚