請meflying大大和各方高手看一下唷！

ljs026 · 发表于 2004-8-14 15:17:00

小弟之前有询问你有关匿名组的问题，不知能否给小弟解答一下，不胜感激~~~关於作组的问题可以预设值是以图层为组名，如果要自行输入组名也可以，麻烦版大大解答~以下是之前的程序
(defun c:XGroupMake (/ ss gName)
   (prompt "\n请选取要组成组的实体:")
   (if (setq ss (ssget))
   (progn
   (xdrx_begin)
   (setq gName (cdr (assoc 8 (entget (ssname ss 0)))))
   (setq gName (xdrx_group_make gName ss))
   (prompt (strcat "\n已经把选择的实体製成组，组名是" gName))
   (xdrx_end)
   )
   )
   (princ)
)
另外再请问2个问题
1.EATTEDIT 和ddedit可以合併吗？一个指令可以完成2种动作，意即可以编辑文字，也可以编辑属性？
2.下面是一个局部放大的程序，小弟想请问：我有个PHA的图层，那么能将放大的那个圆的图层(不是里面的物件唷)，直接改成这个图层吗？另外是不是有办法可以让放大的地方，标註比例不会跟著变大，而是和平常一样？或者当标註放大的地方时，可以自动改变标註比例为放大的相对缩小比例
(defun c:FDd()
(setq veracad (atoi (getvar "ACADVER")))
(if (>= veracad 15)
(fdd2000)
)
)
(defun FDd2000(/ e p pc k r n ep)
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(setq e (car (entsel"\n局部放大\n此命令之前必须在要放大区域画一个圆\n请选择放大区域圆:"))
   pc (cdr (assoc 10(entget e)))
   p    (getpoint "\n请输入放大后位置:")
   k    (getreal "\n请输入放大倍数:")
   r    (cdr (assoc 40 (entget e)))
)
(setq kkk p)
(command "copy" "cp" )
(setq n 0 )
(repeat 180
   (command (polar pc (/ (* 2 n pi) 180) r))
   (setq n (+ n 1))
)
(command """" pc p)
(setq n 0)
(setvar "PICKBOX" 5)
(command "zoom" "c" p (* 3 r))
(command "circle" p r)
(setq ep (entlast))
(command "trim" ep "" )
(repeat 180
   (command (polar p (/ (* 2    n pi)180) (* r 1.1)))
   (command "f" (polar p (/ (* 2    n pi) 180) (* r 1.01)))
   (setq n (+    n 1))
   (command (polar p (/ (* 2    n pi) 180) (* r 1.01)) "")
)
   (COMMAND "")
   (command "erase"ep"")
(command "" "zoom""p")
(command "copyclip" "w" (list (- (car p) r) (- (cadr p) r))
   (list (+ (car p) r)(+ (cadr p) r)) "")
(command "erase""c"(list (- (car p) r) (- (cadr p) r))
   (list (+ (car p) r)(+ (cadr p) r)) "")
(command "pasteclip" (list (- (car p) r) (- (cadr p) r)))
(command "scale""c"(list (- (car p) r) (- (cadr p) r))
   (list (+ (car p) r)(+ (cadr p) r)) "" kkk k)
(command "redraw")
(setvar "OSMODE" 4261)
(princ)
)

meflying · 发表于 2004-8-16 08:37:00

第一个问题,你把你需要的提示过程告诉我...
另两个问题:
1,双击对象
2,你还是叫BDYCAD来继续回答吧

BDYCAD · 发表于 2004-8-16 08:54:00

第二个问题蛮简单的. 你加上一个锁定标注数据的程序把标注锁住就ok了.
锁定标注的程序请参考这个明总的程序

ljs026 · 发表于 2004-8-17 09:09:00

两位版大大真是大好人，不厌其烦为小弟解决问题，但小弟很笨，不知如何将锁定dim标注数值和小弟的程序结合在一起耶！希望BDYCAD大大可以教一下！还有meflying大大，小弟希望可以输入组名，不输入组名的话，预设值是以图层为组名，

meflying · 发表于 2004-8-17 10:36:00

(defun c:XGroupMake (/ ss gName tName)
   (prompt "\n请选取要组成组的实体:")
   (if (setq ss (ssget))
   (progn
   (xdrx_begin)
   (setq tName (cdr (assoc 8 (entget (ssname ss 0)))))
   (setq gName (getstring (strcat "输入组名:")))
   (if (= gName "")
(setq gName tName)
   )
   (setq gName (xdrx_group_make gName ss))
   (prompt (strcat "\n已经把选择的实体製成组，组名是" gName))
   (xdrx_end)
   )
   )
   (princ)
)

ljs026 · 发表于 2004-8-17 15:19:00

非常感谢meflying大大~~~~

請meflying大大和各方高手看一下唷！

发表回复

精选推荐