love1030312 发表于 2015-2-3 12:42:19

一键画矩形框

本帖最后由 love1030312 于 2015-2-7 20:29 编辑

   鉴于cad画矩形比较麻烦了 每天用的比较多   所以求个一键画矩形
要求
1 程序开始后 出选项1.2.3.4.5.6.7.8.9
2 后按对应的数字
3 点击一基点 出来对应的这个矩形框    （图层为当前层就行）


以下参数我自己在程序中设置
1 10X202 100X2003 1000X1000   4 500X600 ..............91000X1200

小白一枚感谢长老和高手的帮忙我想加个默认为1应该如何加   谢谢(defun HRectang      (p str)
(command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))
)
(defun C:q1 (/ LST P STR)
(princ "\n ①<980*980>；②<480*580>；③<680*780>；④<780*980>；⑤<980*1180>")
(setq lst '("980X980" "480X580" "680X780" "780X980" "980X1180"))
(setq num (getint "\n 请输入矩形对应序号1-5:"))
(setq i 0)
(foreach x lst
    (setq p nil)
    (setq i (+ i 1))
    (if(= i num)
      (cond ((setq p (getpoint "\n 请点击基点")) (HRectang p x)))
    )
)
)

自贡黄明儒 发表于 2015-2-3 12:42:20

本帖最后由 自贡黄明儒 于 2015-2-3 13:16 编辑


(defun HRectang      (p str)
(command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))
)
(defun C:w1 (/ LST P STR)
(setq lst '("10X20" "100X200" "1000X1000" "500X600"))
(foreach x lst
    (setq p nil)
    (cond ((setq p (getpoint "\n 基点")) (HRectang p x)))
)
)

自贡黄明儒 发表于 2015-2-3 12:57:07

1 10X202 100X2003 1000X1000   4 500X600 ..............91000X1200这是什么？一串字字符(setq str "1 10X202 100X2003 1000X1000   4 500X600 ..............91000X1200");还是给定(Hrec p "10X20")画？

love1030312 发表于 2015-2-3 13:04:25

自贡黄明儒 发表于 2015-2-3 12:57 static/image/common/back.gif
1 10X202 100X2003 1000X1000   4 500X600 ..............91000X1200这是什么？一串字字符(setq st ...

万分感谢长老回帖   1 10x20这些就是1是编号 10x20是宽和长

Bellahx 发表于 2015-2-3 14:49:14

楼主是想输入数字，画出对应的图形么，我加了几句在长老的代码里，你看下是否可行。加在表后面。
(setq num (getint "please enter 1-9:"))
(setq i 0)
(foreach x lst
    (setq p nil)
    (setq i (+ i 1))
    (if(= i num)
      (cond ((setq p (getpoint "\n 基点")) (HRectang p x)))
    )
)

love1030312 发表于 2015-2-7 20:31:36

高手们大神们长老版主们帮忙改改   小白在此万分感谢

Bellahx 发表于 2015-12-28 15:35:19

love1030312 发表于 2015-2-7 20:31 static/image/common/back.gif
高手们大神们长老版主们帮忙改改   小白在此万分感谢

抱歉哈 才看到，后面加一句(if (= num nil) (setq num 1)）
看下是否可行。

winerfjy 发表于 2015-12-30 23:54:04

好东西值得学习

lg328084985 发表于 2018-10-27 09:18:05

新人学习一下

999999 发表于 2020-8-28 08:46:17

请问你也是模界的人吗
页: [1] 2
查看完整版本: 一键画矩形框