一个CAD模型中，多个图框中的线型比例问题！

chenyu1618 · 发表于 2013-5-21 11:21:13

Lispboy 发表于 2013-5-21 11:13
选择对象的时候，你不可以用窗口的吗？窗口选你图框里面的，不会慢啊。

嗯我是框选的，这样是不慢。我想知道2013机械版的CAD可不可以实现我说的那样！

chenyu1618 · 发表于 2013-5-21 11:22:54

牢固发表于 2013-5-21 10:53
你这图发上来等于没发！没有说明，没有结果，谁能明白？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:图样.rar
下载次数:4 文件大小:76.38 KB
下载权限: 不限以上 [免费赚D豆]

牢固 · 发表于 2013-5-21 11:47:29

chenyu1618 发表于 2013-5-21 11:22

两个途径实现你的需求：
途径1、选中图框，自动修改图框内的实体的线形比例和图框比例一致！此法比较简单，很容易实现！
途径2、采用命令反应器，在绘图时自动将绘制的实体线型比例修改为和图框比例一致！缺点：代码相对复杂，对已经绘制好的图框内实体不能修改，对于非CAD内部命令（即自定义命令程序绘制的实体）绘制的实体也不能修改！
所以建议采用第一种方式来实现你的要求！

chenyu1618 · 发表于 2013-5-21 11:48:08

Lispboy 发表于 2013-5-21 11:13
选择对象的时候，你不可以用窗口的吗？窗口选你图框里面的，不会慢啊。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:图样.rar
下载次数:1 文件大小:76.38 KB
下载权限: 不限以上 [免费赚D豆]

牢固 · 发表于 2013-5-21 12:04:58

chenyu1618 发表于 2013-5-21 11:48

;;根据图框比例修改线形比例 By Gu_xl 2013.05.21
(defun c:tt (/ E EL SC LL UR SS N cmdecho *error*)
(defun *error* (s)
(setvar 'cmdecho cmdecho)
(princ s)
(gxl-Sys-RestoresViewSize)
(princ)
)
(setq cmdecho (getvar 'cmdecho))
(setvar 'cmdecho 0)
(while (and (setq e (car(entsel "\n选择图框:")))
(= "INSERT" (cdr (assoc 0 (setq el (entget e)))))
)
(setq sc (cdr (assoc 41 el)))
(vla-GetBoundingBox (vlax-ename->vla-object e) 'll 'ur)
(setq ll (trans (vlax-safearray->list ll) 0 1)
ur (trans (vlax-safearray->list ur) 0 1)
)
(gxl-Sys-StoresViewSize)
(command "Zoom" "w" ll ur "Zoom" "0.95x")
(setq ss (ssget "w" ll ur '((0 . "*line,arc,circle,ellipse"))))
(gxl-Sys-RestoresViewSize)
(if ss
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(gxl-ch_ent e 48 sc)
)
)
)
(setvar 'cmdecho cmdecho)
(princ)
)
;;**********用到的函数******************
(defun gxl-CH_Ent (ent i pt / en)
(if (assoc i (setq en (entget ent)))
(setq en (subst (cons i pt) (assoc i en) en))
(setq en (append en (list (cons i pt))))
)
(entmod en)
)
;(gxl-Sys-GetViewSize)
(defun gxl-Sys-GetViewSize (/ pc vh sc vw vh pmin pmax)
(setq pc (getvar "viewctr")
vh (getvar "viewsize")
sc (getvar "screensize")
vw (* vh (/ (car sc) (cadr sc)))
pmin (list (- (car pc) (* 0.5 vw)) (- (cadr pc) (* 0.5 vh)))
pmax (list (+ (car pc) (* 0.5 vw)) (+ (cadr pc) (* 0.5 vh)))
)
(list pmin pmax)
)
;;;储存屏幕尺寸 gxl-Sys-StoresViewSize
(defun gxl-Sys-StoresViewSize (/ pc vh sc vw pmin pmax)
(setq *ViewSize* (gxl-Sys-GetViewSize))
)
;;;恢复屏幕尺寸 gxl-Sys-RestoresViewSize
(defun gxl-Sys-RestoresViewSize ()
(if *ViewSize*
(progn
(command "_.Zoom" "W" (car *ViewSize*) (cadr *ViewSize*))
(setq *ViewSize* nil)
)
)
)

;;根据图框比例修改线形比例 By Gu_xl 2013.05.21 
(defun c:tt (/ E EL SC LL UR SS N cmdecho  *error*) 
  (defun *error* (s) 
    (setvar 'cmdecho cmdecho) 
    (princ s) 
    (gxl-Sys-RestoresViewSize) 
    (princ) 
    ) 
  (setq cmdecho (getvar 'cmdecho)) 
  (setvar 'cmdecho 0) 
  (while (and (setq e (car(entsel "\n选择图框:"))) 
              (= "INSERT" (cdr (assoc 0 (setq el (entget e))))) 
              ) 
    (setq sc (cdr (assoc 41 el))) 
    (vla-GetBoundingBox (vlax-ename->vla-object e) 'll 'ur) 
    (setq ll (trans (vlax-safearray->list ll) 0 1) 
          ur (trans (vlax-safearray->list ur) 0 1) 
          ) 
    (gxl-Sys-StoresViewSize) 
    (command "Zoom" "w" ll ur "Zoom" "0.95x") 
    (setq ss (ssget "w" ll ur '((0 . "*line,arc,circle,ellipse")))) 
    (gxl-Sys-RestoresViewSize) 
    (if ss 
      (repeat (setq n (sslength ss)) 
        (setq e (ssname ss (setq n (1- n)))) 
        (gxl-ch_ent e 48 sc) 
        ) 
      ) 
    
    ) 
  (setvar 'cmdecho cmdecho) 
  (princ) 
  ) 
;;**********用到的函数****************** 
(defun gxl-CH_Ent (ent i pt / en) 
  (if (assoc i (setq en (entget ent))) 
    (setq en (subst (cons i pt) (assoc i en) en)) 
    (setq en (append en (list (cons i pt)))) 
    ) 
    (entmod en) 
  ) 
;(gxl-Sys-GetViewSize) 
(defun gxl-Sys-GetViewSize (/ pc vh sc vw vh pmin pmax) 
  (setq pc (getvar "viewctr") 
                 vh (getvar "viewsize") 
                 sc (getvar "screensize") 
                vw (* vh (/ (car sc) (cadr sc))) 
                pmin (list (- (car pc) (* 0.5 vw)) (- (cadr pc) (* 0.5 vh))) 
                pmax (list (+ (car pc) (* 0.5 vw)) (+ (cadr pc) (* 0.5 vh))) 
           ) 
  (list pmin pmax) 
  ) 
;;;储存屏幕尺寸 gxl-Sys-StoresViewSize 
(defun gxl-Sys-StoresViewSize (/ pc vh sc vw pmin pmax)   
  (setq *ViewSize* (gxl-Sys-GetViewSize)) 
  ) 
;;;恢复屏幕尺寸 gxl-Sys-RestoresViewSize 
(defun gxl-Sys-RestoresViewSize () 
  (if *ViewSize* 
    (progn 
      (command "_.Zoom" "W" (car *ViewSize*) (cadr *ViewSize*)) 
      (setq *ViewSize* nil) 
      ) 
    ) 
  )

Lispboy · 发表于 2013-5-21 12:07:35

牢固发表于 2013-5-21 11:47
两个途径实现你的需求：
途径1、选中图框，自动修改图框内的实体的线形比例和图框比例一致！此法比较简 ...

G版也参与了。

之所以没给他写点矩形图框选里面的实体，主要是为了通用，如果他别图也想改但没图框的时候尼，我认为窗选下不比点下图框慢多少。当然程序也可以加种交互，不点封闭矩形框的时候，窗选。

其实对用户，还是自己掌握些怎么构建选择集更好。

Lispboy · 发表于 2013-5-21 12:10:03

chenyu1618 发表于 2013-5-21 11:48

和CAD版本无关，就如我上面的LISP可以在机械版下一样用一样。

你要想选中图框，什么也不输入比例，读取保存在图框内的比例的话，那么就要求你在画这个图框的时候也要用个工具，把他的比例信息输入进去。

如果不这样做，选中图框后，也需要你自己输入下比例，因为没人知道比例是多少？不会你的图框也是虚线带线型比例的吧？

牢固 · 发表于 2013-5-21 12:11:37

Lispboy 发表于 2013-5-21 12:07
G版也参与了。

之所以没给他写点矩形图框选里面的实体，主要是为了通用，如果他别图也想改但没图框的 ...

楼主chenyu1618很执着的认为要通过图框来修改线型比例！所以只好按照楼主的要求给写了一个...

chenyu1618 · 发表于 2013-5-21 14:05:54

牢固发表于 2013-5-21 12:04

你给的代码，我运行到选图框的时候，我选择图框，然后就没有反应了，是不是我的操作哪里出了问题？

牢固 · 发表于 2013-5-21 14:11:41

chenyu1618 发表于 2013-5-21 14:05
你给的代码，我运行到选图框的时候，我选择图框，然后就没有反应了，是不是我的操作哪里出了问题？

选择图框后，程序就自动该完线型比例了，还要啥反应？

chenyu1618 · 发表于 2013-5-21 14:19:23

Lispboy 发表于 2013-5-21 12:10
和CAD版本无关，就如我上面的LISP可以在机械版下一样用一样。

你要想选中图框，什么也不输入比例，读 ...

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:疑问.rar
下载次数:1 文件大小:79.51 KB
下载权限: 不限以上 [免费赚D豆]

chenyu1618 · 发表于 2013-5-21 14:20:25

牢固发表于 2013-5-21 14:11
选择图框后，程序就自动该完线型比例了，还要啥反应？

疑问求高手解答

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:疑问.rar
下载次数:2 文件大小:79.51 KB
下载权限: 不限以上 [免费赚D豆]

chenyu1618 · 发表于 2013-5-21 14:23:25

chenyu1618 发表于 2013-5-21 14:20
疑问求高手解答

问题是选完了以后没有反应啊，线型比例没有变化

牢固 · 发表于 2013-5-21 16:04:55

chenyu1618 发表于 2013-5-21 14:20
疑问求高手解答

你的疑问属于专业软件的专业问题！我不懂！

zxq0220 · 发表于 2013-5-21 21:16:03

chenyu1618 发表于 2013-5-21 14:20
疑问求高手解答

用REGEN命令试下看。

账号		自动登录	找回密码
密码			立即注册

[求助] 一个CAD模型中，多个图框中的线型比例问题！

点评

点评