忘记了弄全局变量了 把这三个删掉就可以记忆了
OK,这样就很完美了。 飞雪神光 发表于 2024-3-5 19:14
怎么把下面基点改为下中、右下？
(defun c:x4 (/ h p p pt w)
(prompt "\n X4:矩形--左下")
(if (and (or #BT-WWWWWWWWWWW (setq #BT-WWWWWWWWWWW 100))
(or #BT-HHHHHHHHHH (setq #BT-HHHHHHHHHH 100))
(or (and (setq w (getdist (strcat "\n宽度:<"(rtos #BT-WWWWWWWWWWW 2 2)">")))
(setq #BT-WWWWWWWWWWW w)
)
#BT-WWWWWWWWWWW
)
(or (and (setq h (getdist (strcat "\n高度:<"(rtos #BT-HHHHHHHHHH 2 2)">")))
(setq #BT-HHHHHHHHHH h)
)
#BT-HHHHHHHHHH
)
(setq p (getpoint "\n 基点:"))
(setq pt (mapcar '+ p (list #BT-WWWWWWWWWWW #BT-HHHHHHHHHH 0)))
)
(progn
(setvar "CMDECHO" 0)
(command "RECTANG" "non" p "non" pt)
(setvar "CMDECHO" 1)
)
)
) 这不是昨天波总的代码嘛，和那个谁的 。就是没得我的那个:( 嘒彼小星 发表于 2024-3-6 19:53
这不是昨天波总的代码嘛，和那个谁的 。就是没得我的那个
你是do it all in the name of love？
昨天叫波总帮我改，他没空改，我自己又不会，所以…… ht1480 发表于 2024-3-6 09:08
”RECTANG““X长度”“,”"Y长度"
RECTANG
指定第一个角点或 [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W) ...
这是CAD自带的功能，我不喜欢用，因为我SHIFT+数字都被我改成快捷键了。 飞雪神光 发表于 2024-3-6 08:57
您这个您这个代码浩辰最后一步无法按回车或者鼠标右键确认默认的1，能否修改一下？ chenry676 发表于 2024-3-16 08:45
您这个您这个代码浩辰最后一步无法按回车或者鼠标右键确认默认的1，能否修改一下？
我没有浩辰 没有办法测试啊
页:
1
[2]