快速建块

SZSU · 发表于 2014-9-25 14:07:15

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

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

×

(defun C:KK (/ HOLDECHO HOLDBLIP A AA BLKREF pt)
  (VL-LOAD-COM)
  (setq AA (ssget))
  (setq ssi (ssname AA 0))
  (setq eni (entget ssi))
  (setq ppi (cdr (assoc 10 eni)))
  (command "_.undo" "_group")
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq A (rtos (* (getvar "CDATE") 1E8)))
  (if (/= AA NIL)
(progn
   (command "_.BLOCK" A  "non" ppi AA "")
   (command "_.INSERT" A "@" "" "" "")
)
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (command "_.undo" "_end")
  (princ)
)
(defun ptlay (x y)  (vla-put-layer(car(vlax-safearray->list(vlax-variant-value x)))y))

fjb54007 · 发表于 2014-11-14 19:40:44

很有用谢谢楼主分享

hero07249 · 发表于 2015-4-5 13:26:03

这个功能贱人工具箱里有

hero07249 · 发表于 2015-4-5 13:27:55

这个功能贱人工具箱里有

qianyi0710 · 发表于 2015-7-26 20:49:49

很有用谢谢楼主分享

culiang10086 · 发表于 2016-3-24 18:58:56

没有块的基点不好用啊

zhang000111 · 发表于 2016-4-7 19:42:36

解决了大问题，之前做的块都不能用，用这个很快重新做了一遍，感谢。

hrk541903 · 发表于 2016-7-2 14:24:54

感谢楼主分享·！~！~

land100 · 发表于 2017-10-29 18:48:36

不错，给力无敌，四大皆空防渗等的积极承担

l982414 · 发表于 2017-11-2 12:39:24

很有用谢谢楼主分享

liutong1997 · 发表于 2017-11-3 07:02:08

非常不错的插件，谢谢

yzhyxh · 发表于 2017-11-3 08:18:37

abenmao168 · 发表于 2017-11-10 00:14:10

有用谢谢分享

wayne23 · 发表于 2018-7-24 18:05:42

建议增加基点选择功能，如果不选基点则为默认。

喏丶半度微凉 · 发表于 2018-12-14 15:38:16

很好用的感谢楼主

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

[图块] 快速建块

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

评分