[投票]：图形预览程序，谁会呀

zhengguoyun · 发表于 2006-1-14 09:44:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想请教下，我想作个图形预览程序，比如显示一直线时，从起点显示到终点，看过相关的吗
可能说的不是很清楚，比如当前的数据库里有一直线和圆，预览时，先把原来的图形隐去（不显示）；再按图元生成顺序一个一个地生成（显示）；
有朋友说修改60的值，我改了，好象不行呀

lt_zzy · 发表于 2006-1-16 13:20:55

有必要吗？？

zhengguoyun · 发表于 2006-1-16 14:10:51

很有必要，切割物体时，想了解切割过程，就要先预览一下，看是否符合要求，斑竹，还望能给个提示

Underway · 发表于 2006-1-16 14:39:09

http://www.turvill.com/t2/free_stuff/poof.lsp

;;; makes selected object invisible
(defun C:POOF (/ ent)
  (setq ent (entget (car (entsel))))
  (if (assoc 60 ent)
(setq ent (subst '(60 . 1) (assoc 60 ent) ent))
(setq ent (append ent '((60 . 1))))
  )
  (entmod ent)
  (princ)
)

;;; makes invisible objects visible
(defun C:UNPOOF (/ ss n ent)
  (setq ss (ssget "x" '((60 . 1)))
n  (1- (sslength ss))
  )
  (while (>= n 0)
(setq ent (entget (ssname ss n))
   ent (subst '(60 . 0) (assoc 60 ent) ent)
   n (1- n)
)
(entmod ent)
  )
  (princ)
)

zb_lou · 发表于 2006-1-16 15:19:12

这样生成的速度会很快，根本在图上看不出来，能否加上生成的时间间隔？

yxljx · 发表于 2006-1-16 15:31:16

俺感觉好像没这必要。

zhengguoyun · 发表于 2006-1-16 18:26:44

我觉得是很有必要的,谢谢楼上几位的回复,基本达到了要求,但是我的想法还是希望能看到从其始点到终点的过程,以上程序对多义线也不起作用是整条线同时显示

xyp1964 · 发表于 2006-1-16 21:03:10

作为探讨，觉得主题不错.
考虑通用性，意义不大。

[FONT=courier new](load "xyp_lib.vlx");版本 V.20060116 (1972)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(CMDLA0)
(if (null no1)
(setq no1 100)
)
(setvar "pdmode" 36)
(setvar "PDSIZE" -5)
(setq no1 (UREAL 7 "" "\n显示间隔距离" no1)
ss (ssget "X")
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(sub_upd_add s1 60 1)
)
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq etype (xyp-get-DXf 0 s1))
(if (member etype
'("CIRCLE" "ELLIPSE" "LINE"
"POLYLINE" "LWPOLYLINE" "SPLINE"
"ARC"
)
)
(progn
(sub_upd_add s1 60 0)
(setq leng (xyp-get-CurveLength s1)
l 0
)
(while (< l leng)
(setq pt (xyp-get-CurvePointAtDist s1 l)
l (+ l no1)
)
(command "point" pt)
(command "delay" "20")
(command "erase" "l" "")
)
(sub_upd_add s1 60 1)
)
)
)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib.vlx");版本 V.20060116 (1972) 
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib.vlx") 
■2·在每个程序内增加(load"xyp_lib.vlx") 
■3·在command下，输入(load"xyp_lib.vlx") 
■4·在菜单.mnl中增加(load"xyp_lib.vlx") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
(defun c:test () 
  (CMDLA0) 
  (if (null no1) 
    (setq no1 100) 
  ) 
  (setvar "pdmode" 36) 
  (setvar "PDSIZE" -5) 
  (setq        no1 (UREAL 7 "" "\n显示间隔距离" no1) 
        ss  (ssget "X") 
        i   -1 
  ) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (sub_upd_add s1 60 1) 
  ) 
  (setq i -1) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (setq etype (xyp-get-DXf 0 s1)) 
    (if        (member        etype 
                '("CIRCLE"        "ELLIPSE"     "LINE" 
                  "POLYLINE"        "LWPOLYLINE"  "SPLINE" 
                  "ARC" 
                 ) 
        ) 
      (progn 
        (sub_upd_add s1 60 0) 
        (setq leng (xyp-get-CurveLength s1) 
              l           0 
        ) 
        (while (< l leng) 
          (setq        pt (xyp-get-CurvePointAtDist s1 l) 
                l  (+ l no1) 
          ) 
          (command "point" pt) 
          (command "delay" "20") 
          (command "erase" "l" "") 
        ) 
        (sub_upd_add s1 60 1) 
      ) 
    ) 
  ) 
  (CMDLA1) 
)[/FONT]

zhengguoyun · 发表于 2006-1-17 11:41:39

谢谢楼上的,达到效果了,但是你的程序显示顺序相反, 循环变量改正过来就好了

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

[投票]：图形预览程序，谁会呀

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子