各位老师好，选两点画中线，但是选第一点就没有捕捉，麻烦帮忙改下谢谢

oysheji

初学，第一次搞个简单的代码，麻烦各位老师加个捕捉，谢谢啦

xyp1964

oysheji 发表于 2025-1-15 23:05
老师辛苦了，这么晚了还在帮忙修改代码，感觉你的用心付出，现在能够捕捉到垂足了，但是生成的线不在画的 ...

1. (defun c:aa ()
   
2.   (setvar "osmode" 167)
   
3.   (while (and (setq p0 (getpoint "\n基点<退出>: "))
   
4.               (setq p1 (getpoint p0 "\n基点<退出>: "))
   
5.               (setq p2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) p0 p1))
   
6.               (setq p3 (getpoint p2 "\n垂点<退出>: "))
   
7.          )
   
8.     (command "line" p2 "per" p3 "")
   
9.   )
   
10.   (princ)
    
11. )

(defun c:aa ()<br />   (setvar "osmode" 167)<br />   (while (and (setq p0 (getpoint "\n基点<退出>: "))<br />               (setq p1 (getpoint p0 "\n基点<退出>: "))<br />               (setq p2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) p0 p1))<br />               (setq p3 (getpoint p2 "\n垂点<退出>: "))<br />          )<br />     (command "line" p2 "per" p3 "")<br />   )<br />   (princ)<br /> )

xyp1964

1. (defun c:aa ()
   
2.   (setvar "osmode" 167)
   
3.   (while (and (setq p0 (getpoint "\n基点<退出>: "))
   
4.               (setq p1 (getpoint p0 "\n基点<退出>: "))
   
5.               (setq p2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) p0 p1))
   
6.               (setq p3 (getpoint p2 "\n垂点<退出>: "))
   
7.          )
   
8.     (command "line" p2 p3 "")
   
9.   )
   
10.   (princ)
    
11. )

(defun c:aa ()<br />   (setvar "osmode" 167)<br />   (while (and (setq p0 (getpoint "\n基点<退出>: "))<br />               (setq p1 (getpoint p0 "\n基点<退出>: "))<br />               (setq p2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) p0 p1))<br />               (setq p3 (getpoint p2 "\n垂点<退出>: "))<br />          )<br />     (command "line" p2 p3 "")<br />   )<br />   (princ)<br /> )

oysheji

xyp1964 发表于 2025-1-15 14:34
(defun c:aa()(setvar"osmode"39)(command"_line""m2p" pause pause )(princ))

感谢版主老师百忙之中给我这个小白回复，代码挺好的，还有个小问题，比如中线画了，中线的第二点找不到与别的线的垂足，图片不知道怎么上传

oysheji

就是刚开始不显示捕捉，在第一点点下有捕捉了，我想输入命令后就有捕捉，怎么改啊

wudechao

真是初学者呀

oysheji

刚才在论坛里找了一下，琢磨了一下，好像现在可以了。请老师们指正。

oysheji

wudechao 发表于 2025-1-15 13:14
真是初学者呀

是的啊，你看就最简单的都不会，不过我感觉这个满足我使用的习惯

自贡黄明儒

oysheji 发表于 2025-1-15 14:04
刚才在论坛里找了一下，琢磨了一下，好像现在可以了。请老师们指正。

(command"_line""m2p""nea")写得挺好的，不错。

oysheji

自贡黄明儒 发表于 2025-1-15 14:10
(command"_line""m2p""nea")写得挺好的，不错。

多谢老师鼓励，再接再励！！！

xyp1964

(defun c:aa()(setvar"osmode"39)(command"_line""m2p" pause pause )(princ))

oysheji

找不到垂足，换个颜色看的清楚的，只能捕到另一根的中点