2013-06-11 明经 AutoLISP 编程②群(177027547) 群聊记录：这个真的是一个没有办法的事儿

明经快报

和光同尘 13:10:12

这个真的是一个没有办法的事儿

明经快报

找软件高手 19:31:44

有哪位大侠 可以帮写个自动画矩形的小插件啊

左下角点在圆心

找软件高手 19:34:32

没人？

[梦里水香] 19:36:57

不明白你表达的意思。。

找软件高手 19:37:30

只需要输入长度和宽度就能画一个矩形

矩形的一个角点在圆心

找软件高手 19:39:32

哦  是在零点

[梦里水香] 19:39:58

越是不明白了。。

明经快报

找软件高手 20:01:15

[qqimg]oldimg/{16D2D7CA-9F3D-FFD6-E95B-A8346F37A15C}.gif[/qqimg]

明经快报

找软件高手 20:15:30

以零点为角点画个矩形

只需要点击图标出入长度和宽度即可

明经快报

创雅设计 20:28:33

什么意思

找软件高手 20:29:24

晕

找软件高手 20:34:07

点击图标

要用到dcl

找软件高手 20:36:09

也不错

[ZZXXQQ] 20:36:10

直接用命令rectang画不行？非要DCL？脱裤子放屁

找软件高手 20:36:12

感谢

普及cad呀

小学没毕业  那会用rectang哦

cad扫盲班

找软件高手 20:39:00

推广cad 老是碰到不会用命令的人

没办法

找软件高手 20:43:48

[qqimg]oldimg/{EE80D14D-5241-0210-A14F-D896F41C338C}.jpg[/qqimg]

找软件高手 20:45:29

怎么提取途中圆弧的起始点 圆心和半径呀

明经快报

[434939575]模型 22:41:53

请教一个问题：;;;提取矩形的长度和宽度程序.
;;;编写日期2003-09-18
;;;编写: BDYCAD
(DEFUN C:Y01()
  (princ "请选取一个矩形:")
  (SETQ A (entsel))
  (SETQ AS (car A)
        ac (ENTGET AS)
        AF (CDR (ASSOC 10 AD)))
  (setq n 0)
  (repeat (length ac)
    (setq qend (nth n ac))
    (if (= (car qend) 10)
      (setq one (cdr qend))
      (setq n (1+ n))))
  (setq tow (cdr (nth (+ n 4) ac)))
  (setq trhee (cdr (nth (+ n 8) ac)))
  (setq fou (cdr (nth (+ n 12) ac)))
  (SETQ XLENGTH (distance one tow)) ;; ; 
  (setq ylength (distance one fou)) 
  (princ " 矩形的长度=" )(princ xlength)
  (princ " 矩形的宽度=" )(princ ylength)
  (princ))

[434939575]模型 22:42:36

AF (CDR (ASSOC 10 AD)))。里面 的AD怎么理解。

[alwtyp][alwtyp] 22:44:47

错了吧，应该是 (CDR (ASSOC 10 Ac)))才对

[434939575]模型 22:46:28

谢谢；但是命令也没报错。

[alwtyp][alwtyp] 22:49:38

[qqimg]oldimg/{CD2713FD-BC3A-784C-7597-37BE39D5C591}.jpg[/qqimg]

[434939575]模型 22:51:26

我刚才试了把那个AD，随便修改都不出错。

[434939575]模型 22:55:17

谢谢