eachy 斑竹和xyp1964长老请进哦

82406515 · 发表于 2005-1-21 09:57:13

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

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

×

我有一个软件加载了之后，只能打开一个CAD打开第二个的时候就不能用，各位看一下问题出在那里。还有用了那个命令之后在退回去的话，我以前所设置的捕捉也没有了。

xyp1964 · 发表于 2005-1-21 23:12:10

用的是2004吗？

fools · 发表于 2005-1-22 00:35:21

最初由 82406515 发布
[B]我有一个软件加载了之后，只能打开一个CAD打开第二个的时候就不能用，各位看一下问题出在那里。还有用了那个命令之后在退回去的话，我以前所设置的捕捉也没有了。 [/B]

造成这种情况可能是因为程序编写的问题也可能是你操作的问题。
要恢复cad可以同时打开多个图，将系统变量sdi设为0。
也可以通过菜单：工具->选项->基本选项->单文档兼容模式，不打勾代表多文挡。
要恢复捕捉就通过osnap命令即可。

82406515 · 发表于 2005-1-22 08:53:52

最初由 xyp1964 发布
[B]用的是2004吗？ [/B]

不是2004是R14的它里面没有工具->选项->基本选项->单文档兼容模式，不打勾代表多文挡。

eachy · 发表于 2005-1-22 09:33:18

1 那个文件是什么后缀？在什么目录

2 属于程序 BUG

82406515 · 发表于 2005-1-22 13:26:10

在R14的SUPPORT目录下，就是你帮我编译的那个qw.arx程序呀，就是这个我也一起传上来了。还有用了那个命令之后在退回去的话，我以前所设置的捕捉也没有了。虽然可以在设置但是有点麻烦，关键就是不能同时打开多个CAD。

eachy · 发表于 2005-1-22 14:33:19

最初由 82406515 发布
[B]在R14的SUPPORT目录下，就是你帮我编译的那个qw.arx程序呀，就是这个我也一起传上来了。还有用了那个命令之后在退回去的话，我以前所设置的捕捉也没有了。虽然可以在设置但是有点麻烦，关键就是不能同时打开多个CAD?... [/B]

(defun _midp (p1 p2)
;|(list (+ (/ (- (car p1) (car p2)) 2) (car p2))
(+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))
)|;
(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)
)
(defun pxyp (txt1)
(setq txt1 (strcat "\n\r 程序命令: "
txt1
" -- [email]xyp@bsedi.com[/email]"
)
)
(princ txt1)
(princ)
)
(defun c:qw (/ e leng myerr nnn no1 no2 num
oldcmd olderr oldos pt1 pt2 pt3 s1 sss
txta
)
(defun myerr (msg)
(if (/= s "Function cancelled")
(if (= s "quit / exit abort")
(princ)
(princ "\n*Cancelled*")
)
)
(command "_undo" "E")
(if oldos
(setvar "osmode" oldos)
)
(if oldcmd
(setvar "cmdecho" oldcmd)
)
(setq *error* olderr
myerr nil
)
(princ)
)
(setq oldos (getvar "osmode")
oldcmd (getvar "cmdecho")
olderr *error*
*error* myerr
)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "_undo" "BE")
(princ "\n选择Circle,Ellipse,*Line,Arc...")
;|(setq SSS (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
num (uint 1 "" "\n缺口数" num)
NO2 (udist 1 "" "\n缺口长" NO2 pt3)
nnn -1
txta (strcat "缺口数 = "
(rtos num 2)
" ; "
"缺口长 = "
(rtos no2 2)
)
)|;
(if (and (setq sss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
(setq num (getint "\n缺口数: "))
(setq no2 (getdist "\n缺口长: "))
)
(progn
;;(cmdla0)
;;(vl-load-com)
(setq txta (strcat "缺口数 = "
(itoa num)
" ; "
"缺口长 = "
(rtos no2 2)
)
nnn -1
)
(princ "\n")
(princ txta)
(while (setq e (ssname sss (setq nnn (1+ nnn))))
(setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
no1 (/ (- leng (* num no2)) (+ num 1))
txta (strcat "线长 = "
(rtos leng 2)
" ; "
"分线长 = "
(rtos no1 2)
)
)
(princ "\n")
(princ txta)
(if (<= no1 0)
(princ "\n开口太大!")
(progn
(repeat num
(setq pt1 (vlax-curve-getPointAtDist
no1
)
pt2 (vlax-curve-getPointAtDist
(+ no1 no2)
)
)
(command "break" e pt1 pt2)
(command "select" "l" "")
(setq s1 (ssget "p")
e (ssname s1 0)
)
)
)
)
)
)
)
(command "_undo" "E")
(setvar "osmode" oldos)
(setvar "cmdecho" oldcmd)
(setq *error* olderr
myerr nil
)
(princ)
)

(defun _midp (p1 p2) 
             ;|(list        (+ (/ (- (car p1) (car p2)) 2) (car p2)) 
        (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2)) 
  )|; 
  (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2) 
) 
(defun pxyp (txt1) 
  (setq        txt1 (strcat "\n\r      程序命令: " 
                     txt1 
                     "      -- [email]xyp@bsedi.com[/email]" 
             ) 
  ) 
  (princ txt1) 
  (princ) 
) 
(defun c:qw (/            e           leng          myerr         nnn        no1    no2    num 
             oldcmd olderr oldos  pt1         pt2        pt3    s1     sss 
             txta 
            ) 
  (defun myerr (msg) 
    (if        (/= s "Function cancelled") 
      (if (= s "quit / exit abort") 
        (princ) 
        (princ "\n*Cancelled*") 
      ) 
    ) 
    (command "_undo" "E") 
    (if        oldos 
      (setvar "osmode" oldos) 
    ) 
    (if        oldcmd 
      (setvar "cmdecho" oldcmd) 
    )    
    (setq *error* olderr 
          myerr          nil 
    ) 
    (princ) 
  ) 
  (setq        oldos        (getvar "osmode") 
        oldcmd        (getvar "cmdecho") 
        olderr        *error* 
        *error*        myerr 
  ) 
  (setvar "osmode" 0) 
  (setvar "cmdecho" 0) 
  (command "_undo" "BE") 
  (princ "\n选择Circle,Ellipse,*Line,Arc...") 
  ;|(setq        SSS  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) 
        num  (uint 1 "" "\n缺口数" num) 
        NO2  (udist 1 "" "\n缺口长" NO2 pt3) 
        nnn  -1 
        txta (strcat "缺口数 = " 
                     (rtos num 2) 
                     " ; " 
                     "缺口长 = " 
                     (rtos no2 2) 
             ) 
  )|; 
  (if (and (setq sss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))) 
           (setq num (getint "\n缺口数: ")) 
           (setq no2 (getdist "\n缺口长: ")) 
      ) 
    (progn 
      ;;(cmdla0) 
      ;;(vl-load-com) 
 
 
      (setq txta (strcat "缺口数 = " 
                         (itoa num) 
                         " ; " 
                         "缺口长 = " 
                         (rtos no2 2) 
                 ) 
            nnn         -1 
      ) 
      (princ "\n") 
      (princ txta) 
      (while (setq e (ssname sss (setq nnn (1+ nnn)))) 
        (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) 
              no1  (/ (- leng (* num no2)) (+ num 1)) 
              txta (strcat "线长 = " 
                           (rtos leng 2) 
                           " ; " 
                           "分线长 = " 
                           (rtos no1 2) 
                   ) 
        ) 
        (princ "\n") 
        (princ txta) 
        (if (<= no1 0) 
          (princ "\n开口太大!") 
          (progn 
            (repeat num 
              (setq pt1        (vlax-curve-getPointAtDist 
                           
                          no1 
                        ) 
                    pt2        (vlax-curve-getPointAtDist 
                           
                          (+ no1 no2) 
                        ) 
              ) 
              (command "break" e pt1 pt2) 
              (command "select" "l" "") 
              (setq s1 (ssget "p") 
                    e  (ssname s1 0) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (command "_undo" "E") 
  (setvar "osmode" oldos) 
  (setvar "cmdecho" oldcmd) 
  (setq        *error*        olderr 
        myerr        nil 
  ) 
  (princ) 
)

未经作者同意，致歉

82406515 · 发表于 2005-1-22 16:23:35

斑竹，现在捕捉是没问题了，但是还是不能同时打开多个CAD，要是同时打开多个CAD还是只有第一个可以用，后打开的都不能用。就这一个问题了，望斑竹帮忙搞定，有机会到到深圳来我请你去玩。感激不尽。我先谢了。

eachy · 发表于 2005-1-22 17:32:54

support 下有 acad.rx 吗？

82406515 · 发表于 2005-1-22 17:53:39

有啊，我就是按你说的把它里面释放出来的东西放在support里面的啊！还有啊怎么里面不能象以前那样可以保存一会儿，象以前的比如说我输入，缺口数5个，缺口长4，应该我执行完第一次命令后，我在点右键的话。它里面还是要象第一次那样有缺口数5个，缺口长4个啊，除非将CAD关闭了，第二次打开里面就没有了。

xyp1964 · 发表于 2005-1-23 00:06:21

不知斑竹的代码是否能在R14下运行？

eachy · 发表于 2005-1-23 00:46:54

最初由 xyp1964 发布
[B]不知斑竹的代码是否能在R14下运行？ [/B]

可以在 14 下运行，就长老的程序而言，2k+和 14 上的代码区别就 (vl-load-com) 一句，14下是没有这个的函数的。
To 楼主：7 楼程序以更新，经测试还是将 support 目录的的 qw.arx 和 acad.rx 移至 Autocad R14 目录下

82406515 · 发表于 2005-1-23 10:16:03

哦，可以了哦，现在很好用，太感谢了。我现在就还有一个小小的问题，我想要在用完第一次命令的时候，我在右键它下面显示，缺口数，缺口长又要从新输入，怎么不能象以前一样可以保存到我将它关闭，第二次打开才会没有啊，所有问题都解决了就这个小问题了，本人就在这里敬候各位的佳音了！！！！！！！！！！！！

eachy · 发表于 2005-2-4 07:42:13

最初由 82406515 发布
[B]哦，可以了哦，现在很好用，太感谢了。我现在就还有一个小小的问题，我想要在用完第一次命令的时候，我在右键它下面显示，缺口数，缺口长又要从新输入，怎么不能象以前一样可以保存到我将它关闭，第二次打开才会没有... [/B]

就是使用全局变量的问题，重新下载楼上附件。

82406515 · 发表于 2005-2-13 13:49:24

多谢了

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

eachy 斑竹和xyp1964长老请进哦

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

相关帖子

Re: eachy 斑竹和xyp1964长老请进哦

浏览过的版块