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

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

此快速建块不能自己定义拾取点和插入点，插入点老在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

游客，本帖隐藏的内容需要发帖数高于 3 才可浏览，你当前发帖数只有 0

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

我正要找这个LISP

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

看不到，问题没有解决

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

正在找这个问题解决办法

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

学习中

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

学习中~~~

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

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