[求助]根据句柄反查出该图元

W1314118

已知图元(直线或多段线)的句柄,是否有程序来根据句柄反查出该图元在cad图中的位置并要求亮显找到的对象,恳求老师们帮助

W1314118

有高手写的

;
;可以用(handent hand)函数
;
(defun h2v(whand / ent ed eType pt)
  (setq ent(handent whand))
  (setq ed(entget ent))
  (setq eType(cdr(assoc 0 ed)))
  (cond
    ((= eType "INSERT")
      (setq pt(cdr(assoc 10 ed)))
    )
    ;其它类型的ent
  )
  (command "_.zoom" "c" pt 20)
  (redraw ent 3)
)
;
但我不会用,是lisp吗

colder

(redraw (handent 句柄) 3)

handent是系统自带的功能

如果要根据图元查句柄也容易
(defun enthand (ent)
  (cdr (assoc 5 (entget ent)))
)

W1314118

(redraw (handent 句柄) 3)----请问怎么用这个功能

如果要根据图元查句柄也容易
(defun enthand (ent)
  (cdr (assoc 5 (entget ent)))
)---------请问怎么用这个功能

hndwl

defun c:jb (/ str stm ed)
  (setq str nil
 str (getstring "\n输入你要找的句柄:")
  ) ;_ 结束setq
  (if (/= str "")
    (progn (setq stm (handent str))
    (if stm
      (progn (command "chprop" stm "" "la" "0" "") (princ "\n目标已经找到。"))
      (progn (princ "\n没有找到向对应的目标。"))
    ) ;_ 结束if
    (princ)
    ) ;_ 结束progn
  ) ;_ 结束if
) ;_ 结束defun

njwtg

请问五楼,这个程序怎么用呢,是lsp吗

hndwl

很简单,直接输入句柄,然后此句柄的实体就到另外的一个新层了.

W1314118

请问是将五楼的代码写到lisp里吗,还有一个问题就是:然后此句柄的实体就到另外的一个新层了------是否改变了这个实体原来所在的图层

W1314118

能否请各位高手帮我写个-------输入句柄,程序自动查找到该实体并放大且亮显的lsp程序,二楼五楼的程序合并后可能有这个功能,但我不会用,麻烦各位赐教

W1314118

我将五楼的代码放到lsp,加载,但出现

; 错误: 参数类型错误: numberp: nil