2013-05-18 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-18 21-01-40：
得弄相对坐标 或者计算一下

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-01-56：
我先试试吧..

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-02-01：
不行再上来!呵呵

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-18 21-02-17：
Z版说的对 哪个可以用

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-18 21-08-55：
(defun c:wz ( / )
  (vl-load-com)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (command "-style" "stangard" "gbcbig.shx" 7 1 0 "n" "n" "n" )
  (setq pt1 (getpoint "\n请指定文字的起点:"))
  (setq str (getstring "\n请输入字符串:"))
  (setq str1 (strcat  "2013 " str))
  (command "text" "m" pt1 0 str1 "" "")
  (setq ent (entget (entlast)))
  (setq obj (vlax-ename->vla-object (cdr(assoc -1 ent))))
  (vla-GetBoundingBox obj 'point1 'point2)
  (setq point1 (vlax-safearray->list point1))
  (setq point2 (vlax-safearray->list point2))
  (command "rectang" point1 point2)
  (setvar "osmode" 3)
  (setvar "cmdecho" 1)
)

CCarch

ZZXXQQ(1468225785)于2013-05-18 21-12-33：
(command "text" "m" pt1 0 str1 "' "')
改成：
(command "text" "m" pt1 0 str1)

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-18 21-15-05：
[face124.gif]

CCarch

ZZXXQQ(1468225785)于2013-05-18 21-15-56：
用textbox方法：
(setq ent (entget (entlast)))
(setq aa (textbox ent))
(setq pb (cdr(assoc 10 ent)))
(setq pt10 (mapcar '+ pb (car aa)))
(setq pt11 (mapcar '+ pt10 (cadr aa))

CCarch

ZZXXQQ(1468225785)于2013-05-18 21-16-34：
然后可用rectang画矩形

守仁格竹GM

守仁格竹?????GM(23214352)于2013-05-18 21-16-59：
[face76.gif]学到

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-27-57：
[face76.gif]我刚回去要睡在床上慢慢想来的.

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-28-21：
再想不到就看魔法书的例子.那里有个多选得出包围圆的.

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-28-30：
[face13.gif]

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-29-07：
没想到一回来Z版就已经解决了!

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-05-18 21-55-47：
(defun c:tt ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "-style" "stangard" "gbcbig.shx" 7 1 0 "n" "n" "n" )
(setq pt1 (getpoint "\n请指定文字的起点:"))
(setq str (getstring "\n请输入字符串:"))
(command "text" "m" pt1 0 str "" "")
(setq ent (entget (entlast)))
;(setq aa (textbox ent))
(setq pb (cdr(assoc 10 ent))) ;左下角点
;(setq pt10 (mapcar '+ pb (car aa)))
(setq pt11 (mapcar '+ pb (cadr aa)))
(command "rectang" pb pt11)
;(vl-cmdf "line" pb (getpoint "111:") "")
;(alert "1")
)