[求助]：为什么这段代码和实际结果不相符

huaheroys · 发表于 2005-11-23 22:22:03

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

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

×

(defun c:pbox()
(setq pa (getpoint "x,y:"))
(setq ww (getreal "with:"))
(setq hh (getreal "high:"))
(setq pb(polar pa 0 ww))
(setq pc(polar pb(/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")

(setq mp1 (polar pa 0 (/ ww 2)))

(setq mp2 (polar pb (/ pi 2) (/ hh 2)))

(setq mp3 (polar pd 0 (/ ww 2)))

(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
)

841594 · 发表于 2005-11-23 22:37:13

没关闭捕捉？
可用(command "line" "non" pt1 ...)这样的格式输入点。

huaheroys · 发表于 2005-11-23 22:51:55

谢谢你了

(command "line" "non" mp1 mp3 "") 也不行
关闭捕捉就可以了,难道没有其他的解决方法吗?

xyp1964 · 发表于 2005-11-23 23:30:17

最初由 huaheroys 发布
[B](defun c:pbox()
(setq pa (getpoint "x,y:"))
(setq ww (getreal "with:"))
(setq hh (getreal "high:"))
(setq pb(polar pa 0 ww))
(setq pc(polar pb(/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "... [/B]

复杂化了！

[FONT=courier new](defun c:pbox (/ pa ww hh pb)
(setvar "osmode" 0)
(setq pa (getpoint "\n左下角点 : ")
ww (getreal "\n宽 : ")
hh (getreal "\n高 : ")
pb (list (+ (car pa) ww) (+ (cadr pa) hh))
)
(command "rectang" pa pb)
(command "line" pa pb "")
(princ)
)[/FONT]

841594 · 发表于 2005-11-24 08:53:05

最初由 huaheroys 发布
[B]谢谢你了

(command "line" "non" mp1 mp3 "") 也不行
关闭捕捉就可以了,难道没有其他的解决方法吗? [/B]

command函数中每当给点的时候，前面都要加一个“non”才行。
如：
(command "line" "non" mp1 "non" mp3 "")
就行了。
用"non"的方法虽然看似笨一点，但程序的友好性好，比如在程序进行当中改变捕捉设定、或中断运行的情况下，都不影响捕捉设定。

huaheroys · 发表于 2005-11-24 19:39:39

多谢！多谢！我对大侠的感激之情犹如滔滔江水连绵不绝，又恰似黄河泛滥一发不可收拾！

xyp1964 · 发表于 2005-11-24 20:07:23

最初由 841594 发布
[B]

command函数中每当给点的时候，前面都要加一个“no... [/B]

并没有下载“结果”文件，怎知其错误所在？！
这么用“药”可能……呵呵……

huaheroys · 发表于 2005-11-24 20:19:11

command函数中每当给点的时候，前面都要加一个“non”才行。
如：
(command "line" "non" mp1 "non" mp3 "")
就行了。
用"non"的方法虽然看似笨一点，但程序的友好性好，比如在程序进行当中改变捕捉设定、或中断运行的情况下，都不影响捕捉设定。

我试过,行得通啊!
我明白了,楼上的大侠可能没有仔细看我的程序码,所以有所误解，我的结果文件是错的,我要的是我程序码的效果。不过，同样谢谢大侠关心，对了你上次帮我写的

点与线的属性互相传递问题(cass）续

(load "xyp_lib.vlx")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachme...&postid=1606661
|;

;;;点与线的属性互相传递问题
(defun c:test ()
  (CMDLA0)
  (setq ss (ssget "X" '((0 . "INSERT") (8 . "GCD")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt1 (xyp-get-Dxf 10 s1)
   dy  (caddr pt1)
   pt2 (list (- (car pt1) 1) (- (cadr pt1) 1) 0)
   pt3 (list (+ (car pt1) 1) (+ (cadr pt1) 1) 0)
)
(setq ss1 (ssget "c" pt2 pt3)
   j -1
)
(command "select" ss1 "r" s1 "")
(setq ss1 (ssget "P"))
(if (and (setq ss1 (ssget "P"))
      (= (sslength ss1) 2)
)
   (progn
(while (setq s2 (ssname ss1 (setq j (1+ j))))
   (setq etype (xyp-get-Dxf 0 s2)
la (xyp-get-Dxf 8 s2)
   )
   (if (= etype "TEXT")
      (setq s-text s2)
      (progn
      (setq s-o s2
      la1 la
      )
      )
   )
)
(command "chprop" s1 s-text "" "la" la1 "")
(command "move"
   s-o
   s-text
   ""
   (list 0 0 0)
   (list 0 0 dy)
)
   )
   (princ"此处存在物体重叠!")
)
  )
  (CMDLA1)
)

对样例完全行得通，可实际应用时，却有点问题，能麻烦你再帮我一下吗？

给的实例与最终结果完全不同，当然无法实现！比如先要画个圆，而实际却要画个椭圆，程序怎能实现？by xyp1964[/COLOR]

841594 · 发表于 2005-11-24 21:45:14

最初由 xyp1964 发布
[B]
并没有下载“结果”文件，怎知其错误所在？！
这么用“药”可能……呵呵…… [/B]

我是“猜”的，看来没有猜错，呵呵。

cy956 · 发表于 2005-11-24 22:31:35

内部函数多了，结果就变成简单的串联。

xyp1964 · 发表于 2005-11-24 22:44:23

最初由 huaheroys 发布
[B]command函数中每当给点的时候，前面都要加一个“non”才行。
如：
(command "line" "non" mp1 "non" mp3 "")
就行了。
用"non"的方法虽然看似笨一点，但程序的友好性好，比如在程序进行当中改变捕捉设定、或中?.. [/B]

不规范、统一，无法用程序实现！

xyp1964 · 发表于 2005-11-24 23:04:44

“command函数中每当给点的时候，前面都要加一个“non”才行。”?!
一个不用“non”的例子：阿基米德螺旋线

[FONT=courier new](load "xyp_lib.vlx")
;;;当期版本：2005年11月23日
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:qx43 ()
(CMDLA0)
(princ
"\n阿基米德螺旋线 : r = at ; 步宽0.01PI ;
\n建议缺省值 : a=1"
)
(setq pt1 (upoint 1 "" "\n指定一个假设坐标原点" pt1 nil)
a (ureal 7 "" "\n常数a" a)
no1 (ureal 7 "" "\n周期" no1)
rad 0
)
(mkla "阿基米德螺旋线" 3)
(setvar "osmode" 0)
(command "ucs" "n" pt1)
(command "pline")
(while (<= rad (* 2 PI no1))
(setq r (* a rad)
pt (polar (list 0 0) rad r)
)
(command pt)
(setq rad (+ rad (* PI 0.01)))
)
(command "")
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib.vlx") 
;;;当期版本：2005年11月23日 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib") 
■2·在每个程序内增加(load"xyp_lib") 
■3·在command下，输入(load"xyp_lib") 
■4·在菜单.mnl中增加(load"xyp_lib") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
(defun c:qx43 () 
  (CMDLA0) 
  (princ 
    "\n阿基米德螺旋线 : r = at ; 步宽0.01PI ; 
    \n建议缺省值 : a=1" 
  ) 
  (setq        pt1 (upoint 1 "" "\n指定一个假设坐标原点" pt1 nil) 
        a   (ureal 7 "" "\n常数a" a) 
        no1 (ureal 7 "" "\n周期" no1) 
        rad 0 
  ) 
  (mkla "阿基米德螺旋线" 3) 
  (setvar "osmode" 0) 
  (command "ucs" "n" pt1) 
  (command "pline") 
  (while (<= rad (* 2 PI no1)) 
    (setq r  (* a rad) 
          pt (polar (list 0 0) rad r) 
    ) 
    (command pt) 
    (setq rad (+ rad (* PI 0.01))) 
  ) 
  (command "") 
  (CMDLA1) 
)[/FONT]

狂刀 · 发表于 2005-11-25 00:24:33

最初由 xyp1964 发布
[B]“command函数中每当给点的时候，前面都要加一个“non”才行。”?!
一个不用“non”的例子：阿基米德螺旋线

[CODE](load "xyp_lib.vlx")
;;;当期版本：2005年11月23日
;|加载通用函?.. [/B]

其实问题很简单，如果用程序直接生成实体（ｅｎｔｍａｋｅ，ｖｌａ－ａｄｄ＊），是否设置捕捉都不会有问题．
而在调用ｃｏｍｍａｎｄ或ｖｌ－ｃｍｄｆ并请求输入点的时候，要进入交互状态，如果之前没有将ｏｓｍｏｄｅ设为０，就有可能捕捉到其他实体，从而改变运行结果．
所以，请求输入点的时候，先输入＂ｎｏｎ＂，从而临时改变捕捉方式（不捕捉），是可以消除这种弊端的；需要说明的是，ｎｏｎ和在命令行下一样，只对紧跟着的一次取点有效．如果点不是很多，倒是不失为一种办法，反正ｃｏｍｍａｎｄ已经用了，就不必在乎是在命令中用ｎｏｎ还是在命令外部用ｏｓｍｏｄｅ了．

841594 · 发表于 2005-11-25 13:17:18

最初由 xyp1964 发布
[B]“command函数中每当给点的时候，前面都要加一个“non”才行。”?!
一个不用“non”的例子：阿基米德螺旋线

[CODE](load "xyp_lib.vlx")
;;;当期版本：2005年11月23日
;|加载通用函?.. [/B]

斑竹看文字请结合上下文，切不可断章取义。楼主发这个帖子是寻求帮助，我提个解决的办法，帮忙而已，顺带说一句心得体会，有心者听之或许有点帮助，不理解也无大碍，至于为什么这么说，有机会可以再专题讨论，对于楼主的出发点而言，就太没必要在这里较真了。

xyp1964 · 发表于 2005-11-25 13:38:42

最初由 841594 发布
[B][QUOTE]最初由 xyp1964 发布
[B]“command函数中每当给点的时候，前面都要加一个“non”才行。”?!
一个不用“non”的例子：阿基米德螺旋线

[CODE](load "xyp_lib.vlx")
;;;?.. [/B]

只针对是否用不用“non”而已，如果是觉得较真，讨论到此结束！

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

[求助] [求助]：为什么这段代码和实际结果不相符

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

相关帖子

Re: [求助]：为什么这段代码和实际结果不相符