[求助]：关于dount 如何加上系统变量

HLB_Konan · 发表于 2007-6-14 13:09:43

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

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

×

就是一个实心的点在1:100环境中我需要点大小是80  在1：120中我需要的点大小是 96
我以前是这样一个缩写 (defun c:d() (command "donut" "0" "80")) 然后需要大或小的时候就sc放大火小现在能不能给他加一个比例控制他的大小先谢谢了
我只懂一点点地lsp 我自己编了一个但不行bl
(defun c:d (/ pt1 bl )
  (setq bl (getvar "USERR1"))
  (if (= bl 0.0)
(setq bl 1.0)
  )
  (setq blx (/ bl 100.0))
  (blch)
(setq pt1( 0.8 *bl)
(command "dount" "0" pt1)
(princ)
)

carrot1983 · 发表于 2007-6-14 13:44:00

<HTML>
<HEAD><TITLE>C:\Documents and Settings\Administrator\桌面\画两种方式的点.LSP</TITLE></HEAD>
<BODY >
<CENTER><H1>画两种方式的点.LSP</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>;;;用法：回车（或空格），第一次需要的点是８０，第二次需要的点是９６，依此类推。。
(defun c:tt ()
(if (null temp)
(setq temp 0)
)
(if (= 0 temp)
(progn
(princ "\n需要点大小是80")
(princ)
(command "donut" "0" "80")
(setq temp 1)
)
(progn
(princ "\n需要点大小是96")
(princ)
(command "donut" "0" "96")
(setq temp 0)
)
)
(princ)
)
</PRE></BODY></HTML>

<HTML> 
<HEAD><TITLE>C:\Documents and Settings\Administrator\桌面\画两种方式的点.LSP</TITLE></HEAD> 
<BODY > 
<CENTER><H1>画两种方式的点.LSP</H1></CENTER> 
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified) 
</SCRIPT> 
<HR SIZE=5><PRE>;;;用法：回车（或空格），第一次需要的点是８０，第二次需要的点是９６，依此类推。。 
(defun c:tt () 
  (if (null temp) 
    (setq temp 0) 
  ) 
  (if (= 0 temp) 
    (progn 
      (princ "\n需要点大小是80") 
      (princ) 
      (command "donut" "0" "80") 
      (setq temp 1) 
    ) 
 
    (progn 
      (princ "\n需要点大小是96") 
      (princ) 
      (command "donut" "0" "96") 
      (setq temp 0) 
    ) 
  ) 
  (princ) 
) 
</PRE></BODY></HTML>

顺便试用一下zm184发贴用的lsp2htm..呵呵

HLB_Konan · 发表于 2007-6-14 15:07:29

楼上可能误会我的意思了我是想用参数控制点大小而不是仅仅画着两个点我只是举了这两个意思而已不过仍然谢谢楼上的好心我是想比如0.8大小的点在1:100环境中点大小就是0.8x100 在1：120 环境中点大小就是0.8x120 如果在1:50的环境就是0.8x50 我是想要这样的程序 ^0^

firstintimate · 发表于 2007-6-14 16:12:50

(defun c:test (/ pt1 bl )
(setq bl (getvar "USERR1"))
(if (= bl 0.0)
(setq bl 1.0)
)
;;;(blch)
(setq pt1(* 0.8 bl))
(command "donut" "0" pt1)
(princ)
)

zml84 · 发表于 2007-6-14 17:15:00

整张图纸各个部分不一定是一个相同比例，
楼主的需求使用块的方式解决较好一些。
 
另外，控制圆环直径的系统变量是这两个：
DONUTID 设置圆环的缺省内直径
DONUTOD 设置圆环的缺省外直径

HLB_Konan · 发表于 2007-6-15 09:22:41

谢谢楼上的两位的解答 4楼的程序我用了很好用我只是根据感觉把别人的句子拿过用根本不懂什么语法之类的见笑了 5楼提到用块好一些只是我不知道该如何下手呵呵估计lsp 没几十句拿不下吧：）

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

[求助] [求助]：关于dount 如何加上系统变量

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

相关帖子