chenry676 发表于 2024-7-14 15:07:29

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

本帖最后由 chenry676 于 2024-7-14 15:10 编辑

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

sbwdx 发表于 2024-7-15 19:17:43

(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 发表于 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" "")
)

xxyyzzlg 发表于 2024-7-15 16:00:56

本帖最后由 xxyyzzlg 于 2024-7-15 16:05 编辑

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 发表于 2024-7-14 17:57:34

看看是不是你想要的样式

chenry676 发表于 2024-7-14 19:47:41

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

guosheyang 发表于 2024-7-14 22:16:45

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

下文没句号。 发表于 2024-7-14 22:21:35

来看看吧来卡看，

tranque 发表于 2024-7-15 10:25:16

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

chenry676 发表于 2024-7-15 10:33:40

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

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

xxyyzzlg 发表于 2024-7-15 16:06:01

本帖最后由 xxyyzzlg 于 2024-8-14 18:30 编辑

guosheyang 发表于 2024-7-14 22:16
(defun c:tt ( / P)
   (command "xline" (setq p(getpoint)) "non" (polar p 0 (+ 1000 (car p)))
             ...
感谢分享，完善了我的构造线工具。




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