旧的开始,你需要放置Pt_坐标。dwg随代码一起附加到支持目录中。
- ;| Label for Point.
- PtLabel.lsp BY: TOM BEAUFORD
- ^P(or C:Label (load "PtLabel.lsp"));PtLabel
- BeaufordT@LeonCountyFL.gov
- Leon County Public Works/Engineering
- ==================================================================|;
- (defun C:PtLabel (/ ATTDIA)
- (setq ATTDIA (getvar "ATTDIA"))
- (setvar "ATTDIA" 0)
- (command "._INSERT"
- "Pt_Coordinates"
- (getpoint "Pick Point: ") ;Insert pt
- (/ 0.1 (getvar "cannoscalevalue")) ;X Scale
- ; (* (getvar "DIMTXT") (getvar "DIMSCALE")) ;X Scale (Alternate)
- "" ;Y Scale
- ; "" ;Rotation
- (*(/(getvar "viewtwist")pi)-180) ;Rotation
- "" ;Easting
- "" ;Northing
- )
- (setvar "ATTDIA" ATTDIA)
- (entupd (entlast))
- ; (command "._DDATTE" (entlast))
- (princ)
- )
Pt_坐标。图纸 |