shq197528 发表于 2010-9-15 03:49:00

快速建块插入点在0，0和没有拾取点，求助！！

此快速建块不能自己定义拾取点和插入点，插入点老在0，0。请各位大侠修正修正！！！

(defun C:BV (/ HOLDECHO HOLDBLIP A AA BLKREF pt)
(VL-LOAD-COM)
(setq AA (ssget))
    (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" "0,0" AA "")
      (command "_.INSERT" A "@" "" "" "")
    )
)
(setvar "blipmode" HOLDBLIP)
(setvar "cmdecho" HOLDECHO)
    (princ)
)

ZZXXQQ 发表于 2010-9-15 21:54:00



(defun C:BV ()
(setvar "CMDECHO" 0)
(setq A (rtos (* (getvar "CDATE") 1E8)))
(if (setq AA (ssget)) (progn
(command "_.BLOCK" A PAUSE AA "")
(command "_.INSERT" A PAUSE "" "" "")
))
(setvar "CMDECHO" 1)
(princ)
)

pb.v@163.com 发表于 2011-6-23 11:47:43

我正要找这个LISP

樊影 发表于 2012-2-9 16:20:26

看不到，问题没有解决

wxf5888 发表于 2018-1-27 15:21:44

正在找这个问题解决办法

cn0yahoo 发表于 2018-4-17 12:08:22

学习中

christinary 发表于 2021-3-15 13:40:43

学习中~~~
页: [1]
查看完整版本: 快速建块插入点在0，0和没有拾取点，求助！！