2012以上的Command-s和Command

eachy · 发表于 2013-9-4 17:17:16

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

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

×

看CAD2012手册说 command-s 比 command 要快很多，简单写了测试，确实不负众望

(defun getutime () (* 86400 (getvar "tdusrtimer")))
(defun c:t1 (/ t0 an a1 d d1 p1 p2)
(setq t0 (getutime)
an (/ pi 10000)
a1 0.
d 100.
d1 0.
p1 '(0. 0. 0.)
)
(setvar "cmdecho" 0)
(setvar "osmode" 16384)
(repeat 10000
(setq p2 (polar p1 (setq a1 (+ a1 an)) (setq d1 (+ d d1))))
(command ".line" p1 p2 "")
)
(princ "\n")
(princ (- (getutime) t0))
(princ)
)
(defun c:t2 (/ t0 an a1 d d1 p1 p2)
(setq t0 (getutime)
an (/ pi 10000)
a1 0
d 100.
d1 0.
p1 '(0. 0. 0.)
)
(setvar "cmdecho" 0)
(setvar "osmode" 16384)
(repeat 10000
(setq p2 (polar p1 (setq a1 (+ a1 an)) (setq d1 (+ d d1))))
(command-s ".line" p1 p2 "")
)
(princ "\n")
(princ (- (getutime) t0))
(princ)
)

命令: T2
4.989
命令: e ERASE
选择对象: 指定对角点: 找到 10000 个
选择对象:
命令: T1
7.792

在10W级时 t1 在 70s 多，t2 50s，效率提升还是非常明显的！
区别： command-s 不支持 pause ，不支持Prompt，必须是完整的语句

renyong119 · 发表于 2013-9-6 08:58:10

学习了，command-s

zyhandw · 发表于 2014-5-14 14:59:27

cad什么版本才能用command-s？为什么cad2008没有此函数？

ynhh · 发表于 2016-4-18 11:55:12

zyhandw 发表于 2014-5-14 14:59
cad什么版本才能用command-s？为什么cad2008没有此函数？

按楼主的说法
可能是从 2012

daomeidan · 发表于 2019-4-7 10:16:01

CAD2012手册说 command-s 比 command 要快很多

hh_lj007 · 发表于 2022-6-29 17:58:03

谢谢分享！

小菜鸟啊 · 发表于 2022-10-31 14:35:40

各位大神、我想问一下既然 command-s 不支持 pause、那我一个程序里面是否可以将command和command-s混用啊

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

[研讨] 2012以上的Command-s和Command

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

评分

点评