[求助]如何控制在LISP程序中數值變量的精度

fend_2000 · 发表于 2004-10-21 16:06:00

;;简单写写供参考,NO ERROR CHECK
(defun C:TT (/ HOLDOSMODE ENT PT1 PT2 NUM ANG DIST DIST1)
(setq HOLDOSMODE (getvar "OSMODE"))
(if (setq ENT (ssget))
(progn
(setvar "osmode" 39)
(setq PT1 (getpoint "\n基准点: "))
(setq PT2 (getpoint PT1 "\n第2点: "))
(setq NUM (getint "\nNumber of segments:"))
(setq ANG (angle PT1 PT2))
(setq DIST (/ (distance PT1 PT2) NUM)
DIST1 DIST
)
(setvar "osmode" 0)
(repeat NUM
(setq PT2 (polar PT1 ANG DIST))
(command "._COPY" ENT "" PT1 PT2)
(setq DIST (+ DIST DIST1))
)
(princ "\nDistance:")
(princ DIST1)
)
)
(setvar "osmode" HOLDOSMODE)
(princ)
)

老大， (setvar "osmode" 39)中的“39"代表什么？谢谢!

meflying · 发表于 2004-10-21 16:40:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=27696

龙龙仔 · 发表于 2004-10-21 16:42:00

使用下列位元码设定常驻式「物件锁点」模式。 0 NONe (无)
1 ENDpoint (端点)
2 MIDpoint (中点)
4 CENter (中心点)
8 NODe (单点)
16 QUAdrant (四分点)
32 INTersection (交点)
64 INSertion (插入点)
128 PERpendicular (垂直点)
256 TANgent (相切点)
512 NEArest (最近点)
1024 快速 (快速)
2048 APParent Intersection (外观交点)
4096 EXTension (延伸外观交点)
8192 PARallel (平行)
如果要指定多个物件锁点，请输入其值的和。例如，输入 3 指定端点 (位元码 1) 和中点 (位元码 2) 物件锁点。输入 16383 指定所有物件锁点。当使用状态列的「物件锁点」按钮来关闭物件锁点时，除了 OSMODE 按钮的正常值之外，还会传回位元码 16384 (0x4000) 。开发人员可以利用这个额外的值来撰写 AutoCAD 的应用程式，并区分出这模式和「草图设定值」对话方块所关闭「物件锁点」模式。设定这个位元，会关闭常驻式物件锁点。将 OSMODE 设为关闭这个位元的某值，会打开常驻式物件锁点。

fend_2000 · 发表于 2004-10-21 20:01:00

老大，(setvar "osmode" 39)中“39”代表什么？

fend_2000 · 发表于 2004-10-21 20:12:00

各位请赐我死吧!我好蠢!

无痕 · 发表于 2004-10-21 20:17:00

你这么坦诚,很难得!

龙龙仔 · 发表于 2004-10-22 07:58:00

1 ENDpoint (端点)
2 MIDpoint (中点)
4 CENter (中心点)
32 INTersection (交点) 数字加起来=39

fend_2000 · 发表于 2004-10-23 09:37:00

谢字.

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