243811238 发表于 2014-3-18 15:20:58

求大神求帮助添加旋转的程序

本帖最后由 243811238 于 2014-3-18 16:04 编辑

帮修改下,下面呢程序不能旋转。能否在添可以围绕插入点360旋转或者定位0,90,270,360者个角度旋转也可以,就是带旋转的插入图块
,并且只有图形围绕插入点旋转,文字和引线始终不变.请看图片
(defun c:ic()
   (setvar "cmdecho" 0)
(WHILE(setq p1 (getpoint "\n插入点:"))
    (command "insert" "ic.dwg" p1 "1" "" "0")
   (command "EXPLODE" (entlast)))
(princ)
)

243811238 发表于 2014-3-18 17:15:21

G版呢?求帮忙啊
页: [1]
查看完整版本: 求大神求帮助添加旋转的程序