chenry676 发表于 2024-7-15 19:59:50

sbwdx 发表于 2024-7-15 19:17
(defun c:tt ( / p )
   (setq p (getpoint "\nSpecify point for xlines: "))   ; 提示用户输入点
    ...

十分感谢，是我满意的效果。

guosheyang 发表于 2024-7-15 21:16:23

sbwdx 发表于 2024-7-15 19:17
(defun c:tt ( / p )
   (setq p (getpoint "\nSpecify point for xlines: "))   ; 提示用户输入点
    ...

可以改为这样
(defun c:tt ( / p )
   (setq p (getpoint "\nSpecify point for xlines: "))
   (command "xline" "H" p ""   
             "change" (entlast) "" "p" "c" "2" ""
             "xline" "V" p ""               
             "change" (entlast) "" "p" "c" "2" "")
)

gble119 发表于 2024-7-16 21:19:48

学习了 谢谢分享

paulpipi 发表于 2024-7-17 10:04:17

非常好用，感谢分享

ajunseo 发表于 2024-8-14 14:44:11

zilong136 发表于 2024-7-14 17:57
看看是不是你想要的样式

这个功能可以考虑在绘制不结束命令的时候，对横或竖构造线通过子命令切换吗？

比如说输入命令后，默认是横向的，子命令：横<H>/竖<V>:H   

输入一次命令后，通过子命令来切换横竖向的构造线。

zilong136 发表于 2024-8-14 18:38:32

是不是这样？
页: 1 [2]
查看完整版本: 请问如何设置一个命令同时画横竖构造线？