[LISP程序]：怎样才能用LISP程序产生如图所示的一半标注?

fundoll

在机械制图中经常用到一半标注
用DIMBLK2    DIMSE2   DIMSD2变量设定不可以?
怎样才能用LISP程序产生如图所示的一半标注? 先谢谢了?

lsjjm

使用vlisp 修改dimmension 对象的属性:
(vlax-put-property ent对象 'dimline1suppress -1)

gchen

也可以直接用命令dimoverride，将你需要改变的变量设置为你的要求值。

fundoll

;;=======直线标注带φ(标注一半)======
(defun C:dzz (/ oldecho qq dd objdim)

  (setq oldecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (initget 0)
  (setq qd (getpoint "\nfrom point : "))  ;;;起点
  (initget 0)
  (setq dd (getpoint qd "\nto point : ")) ;;;到点
   
  (command "dimlinear" qd dd "_m" "%%c<>")
;;;>>>>>>>>>>>
  (setq objdim (ssget"L"))
  (command "_dimoverride" "dimse2" 1 "dimsd2" 1  "" objdim "")    ;;;不可以,而在autocad命令行中可以.

  (setvar "cmdecho" oldecho)
  )



请问怎样解决???????????

gchen

2. 
   
3. 
   
4. (defun C:dzz (/ oldecho qq dd objdim)
   
5. 
   
6. (setq oldecho (getvar "cmdecho"))
   
7. (setvar "cmdecho" 0)
   
8. (initget 0)
   
9. (setq qd (getpoint "\nfrom point : ")) ;;;起点
   
10. (initget 0)
    
11. (setq dd (getpoint qd "\nto point : ")) ;;;到点
    
12. 
    
13. (command "dimlinear" qd dd "_m" "%%c<>" pause)
    
14. ;;;>>>>>>>>>>>
    
15. (setq objdim (entlast))
    
16. (command "_dimoverride" "dimse2" 1 "dimsd2" 1 "" objdim "") ;;;不可以,而在autocad命令行中可以.
    
17. 
    
18. (setvar "cmdecho" oldecho)
    
19. )
    
20. 
    

<br /> <br /> (defun C:dzz (/ oldecho qq dd objdim)<br /> <br /> (setq oldecho (getvar "cmdecho"))<br /> (setvar "cmdecho" 0)<br /> (initget 0)<br /> (setq qd (getpoint "\nfrom point : ")) ;;;起点<br /> (initget 0)<br /> (setq dd (getpoint qd "\nto point : ")) ;;;到点<br /> <br /> (command "dimlinear" qd dd "_m" "%%c<>" pause)<br /> ;;;>>>>>>>>>>><br /> (setq objdim (entlast))<br /> (command "_dimoverride" "dimse2" 1 "dimsd2" 1 "" objdim "") ;;;不可以,而在autocad命令行中可以.<br /> <br /> (setvar "cmdecho" oldecho)<br /> )<br /> <br />

这样可以了。