oysheji 发表于 2025-1-15 12:11:49

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

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

xyp1964 发表于 2025-1-19 11:33:41

oysheji 发表于 2025-1-15 23:05
老师辛苦了，这么晚了还在帮忙修改代码，感觉你的用心付出，现在能够捕捉到垂足了，但是生成的线不在画的 ...(defun c:aa ()
(setvar "osmode" 167)
(while (and (setq p0 (getpoint "\n基点<退出>: "))
            (setq p1 (getpoint p0 "\n基点<退出>: "))
            (setq p2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) p0 p1))
            (setq p3 (getpoint p2 "\n垂点<退出>: "))
         )
    (command "line" p2 "per" p3 "")
)
(princ)
)


xyp1964 发表于 2025-1-15 20:38:15

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

oysheji 发表于 2025-1-15 15:05:31

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

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

oysheji 发表于 2025-1-15 12:42:47

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

wudechao 发表于 2025-1-15 13:14:40

真是初学者呀

oysheji 发表于 2025-1-15 14:04:50

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

oysheji 发表于 2025-1-15 14:06:05

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

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

自贡黄明儒 发表于 2025-1-15 14:10:43

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

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

oysheji 发表于 2025-1-15 14:12:54

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

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

xyp1964 发表于 2025-1-15 14:34:02

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

oysheji 发表于 2025-1-15 15:06:46

本帖最后由 oysheji 于 2025-1-15 15:22 编辑

找不到垂足，换个颜色看的清楚的，只能捕到另一根的中点
页: [1] 2
查看完整版本: 各位老师好，选两点画中线，但是选第一点就没有捕捉，麻烦帮忙改下谢谢