请问如何设置一个命令同时画横竖构造线？

chenry676

请问如何设置一个命令同时画横竖构造线？

sbwdx

(defun c:tt ( / p )
   (setq p (getpoint "\nSpecify point for xlines: "))     ; 提示用户输入点
   (command "xline" "H" p "")                                 ; 创建水平无限线
   (command "change" (entlast) "" "p" "c" "2" "")      ; 更改最后一个创建的实体（水平线）的颜色为黄色
   (command "xline" "V" p "")                                  ; 创建垂直无限线
   (command "change" (entlast) "" "p" "c" "2" "")      ; 更改最后一个创建的实体（垂直线）的颜色为黄色
)

guosheyang

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" "")
)

xxyyzzlg

guosheyang 发表于 2024-7-14 22:16
(defun c:tt ( / P)
   (command "xline" (setq p(getpoint)) "non" (polar p 0 (+ 1000 (car p)))
             ...

感谢分享，完善了我的构造线工具。
不加“non”也可以。
(command "xline" (setq p(getpoint)) (polar p 0 (+ 1000 (car p))) (polar p (* pi 0.5) (+ 1000 (cadr p)))  "")


请问“non”的作用是什么？

zilong136

看看是不是你想要的样式

chenry676

不是这样子的复杂，我要的是点击一下，就有水平和垂直相交构造线。

guosheyang

(defun c:tt ( / P)
   (command "xline" (setq p(getpoint)) "non" (polar p 0 (+ 1000 (car p)))
                   "non" (polar p (* pi 0.5) (+ 1000 (cadr p))) "") )

下文没句号。

来看看吧来卡看，

tranque

海龙好像有这个命令。。。

chenry676

guosheyang 发表于 2024-7-14 22:16
(defun c:tt ( / P)
   (command "xline" (setq p(getpoint)) "non" (polar p 0 (+ 1000 (car p)))
             ...

是这样，谢谢！请问可以设置颜色和线型吗？比如黄色和粗虚线，因为我布局中中常常要用词命令定位观察模型的的位置，好多人画的图没有规整，这样定位很直观。

xxyyzzlg

guosheyang 发表于 2024-7-14 22:16
(defun c:tt ( / P)
   (command "xline" (setq p(getpoint)) "non" (polar p 0 (+ 1000 (car p)))
             ...

感谢分享，完善了我的构造线工具。