规划图怎样点坐标,定位坐标

规划图怎样点坐标,定位坐标
规划图怎样点坐标,定位坐标

规划图怎样点坐标,定位坐标
标坐标有插件的啊,网上下一个就可以了,做设计的话,你身边的同事肯定有的,让他们给你传一个也行,然后在cad 中输入 ap 加载就是了,这又不是什么机密.有必要的话,我给你传几个

输入数字，估计你的水平不到位，问问身边的高手

有专门的Autocad坐标定位插件，方便实用！下面是制作这个插件的方法(如果你有这个插件就不用制作了)：首先将以下内容复制并粘贴在一个新建的记事本文本文档中，然后保存，再将文件名及格式改为qq.LSP，这样就制作好了插件；接下来打开CAD程序，点击工具菜单下的加载应用程序，加载刚刚制作的插件，会有加载成功的提示，然后输入命令"qq“按下面提示设置好相应参数后就可以进行平面定位了。
（以下是...

全部展开

有专门的Autocad坐标定位插件，方便实用！下面是制作这个插件的方法(如果你有这个插件就不用制作了)：首先将以下内容复制并粘贴在一个新建的记事本文本文档中，然后保存，再将文件名及格式改为qq.LSP，这样就制作好了插件；接下来打开CAD程序，点击工具菜单下的加载应用程序，加载刚刚制作的插件，会有加载成功的提示，然后输入命令"qq“按下面提示设置好相应参数后就可以进行平面定位了。
（以下是需拷贝内容）
(defun c:qq ( / stbl stzg stji stjd winy winx source
cle oldpt2 locpt2 pi2 oldzk dmbg gdbg
artext selset cosmode scmd ccoords clay cluprec
)
;错误处理重定义
(defun *error* (er_pro)
(setq *error* nil)
(setvar "cmdecho" scmd)
(setvar "osmode" cosmode)
(setvar "coords" ccoords)
(setvar "clayer" clay)
(setvar "luprec" cluprec)
(princ "Function Cancelled\n")
(princ "Thank You For Using This Program----Mr. Feng!")
(print)
)
;设置初始值
(setvar "cmdecho" 0)
(setq scmd (getvar "cmdecho"))
(setq clay (getvar "clayer"))
(setq ccoords (getvar "coords"))
(setq cosmode (getvar "osmode"))
(setq cluprec (getvar "luprec"))
(setq artext (getvar "textstyle"))
(if (/= artext "ROMAND")
(command "_.style" "romand" "romand" "0" 0.7 "" "" "" "")
)
(if (= nil defbl) (setq defbl 1000 ))
(if (= nil defzg) (setq defzg 6.0 ))
(if (= nil defjd) (setq defjd "0.00"))
(if (= nil defjdz) (setq defjdz 0 ))
(setq stbl (strcat "请输入图的比例<1:"
(itoa defbl)
">: "
)
stzg (strcat "请输入标注字高<"
(rtos defzg 2 1)
"毫米>: "
)
stjd (strcat "请选择两点确定旋转角度<"
defjd
">: "
)
jdz defjdz
bl defbl
zg defzg
)
;以下为参数输入
(print)
(princ "\n比例<1:")
(princ defbl)
(princ ">. 字高")
(princ defzg)
(princ "毫米. 角度")
(princ defjd)
(princ ".")
(print)
(princ "修改参数请键入S; 按任意键将继续. ")
(if (or (= 115 (setq selset (read-char)))
(= 83 selset)
)
(progn
(if (= nil (setq bl (getint stbl))) (setq bl defbl))
(if (= nil (setq zg (getreal stzg))) (setq zg defzg))
(setvar "osmode" 553)
(if (setq pt1 (getpoint stjd))
(setq pt2 (getpoint "\n请输入第二点: ")
jdz (angle pt1 pt2)
defjd (angtos jdz 1 4)
defjdz jdz
)
(setq jdz defjdz)
)
(setq defbl bl
defzg zg
zg (* 0.001 zg bl)
)
)
)
;以下进入引出线输入
(while
(progn
(setvar "osmode" 41)
(setq winx (/ (- (car (getvar "extmax")) (car (getvar "extmin"))) 16.0)
winy (/ (- (cadr (getvar "extmax")) (cadr (getvar "extmin"))) 16.0)
)

(setq pt1 (getpoint "\n请输入所需标注点: ")
source 1
cle nil
oldpt2 nil
)
(setvar "osmode" 0)
(princ "请输入下一点.\n")
;以下实现光标拖曳
(while (not (= source 3))
(setq locpt2 (grread t 4 1)
source (car locpt2)
pt2 (cadr locpt2)
lxjd (angle pt1 pt2)
pi2 (/ pi 2)
jdc (- lxjd jdz)
)
(if (/= pt2 oldpt2)
(progn
(if (or (and (> jdc (* -1.5 pi)) (< jdc (- pi2)))
(and (> jdc pi2) (< jdc (* 1.5 pi)))
)
(setq fanxia -1)
(setq fanxia 1)
)
;测出标注线应有长度
(setq zk (* zg 0.7 (max (strlen (rtos (car pt1) 2 3))
(strlen (rtos (cadr pt1) 2 3))
)
fanxia
)
)
(if cle
(progn
(drbox oldpt2 oldzk)
(drbox pt2 zk)
(setq oldpt2 pt2
oldzk zk
)
)
(progn
(drbox pt2 zk)
(setq oldpt2 pt2
oldzk zk
cle t
)
)
)
)
)
)
(drbox pt2 zk)
;分三类情况进行座标标注
(if (setq dmbg (getreal "\n请输入地面标高<回车将只标座标值>: "))
(if (setq gdbg (getreal "\n请输入管线标高<回车将标注座标及地面标高>: "))
(drcoord dmbg gdbg 1)
(drcoord pt1 dmbg 2)
)
(drcoord pt1 "多余系数" 3)
)
)
)
(gc)
(setq jdz nil
bl nil
zg nil
pt1 nil
pt2 nil
zk nil
fanxia nil
lxjd nil
jdc nil
)
(setvar "cmdecho" scmd)
(setvar "osmode" cosmode)
(setvar "coords" ccoords)
(setvar "clayer" clay)
(setvar "luprec" cluprec)
(princ "Thank You For Using This Program----Mr. Feng!")
(print)
)
;画辅助框子程序
(defun drbox (pt22 zk1 / pi2 rp1 rp2 rp3 rp4)
(setq pi2 (/ pi 2)
rp1 (list (+ (car pt22) (* (cos (+ pi2 jdz)) zg))
(+ (cadr pt22) (* (sin (+ pi2 jdz)) zg))
)
rp2 (list (+ (car pt22) (* (cos (- jdz pi2)) zg))
(+ (cadr pt22) (* (sin (- jdz pi2)) zg))
)
rp3 (list (+ (car rp1) (* (cos jdz ) zk1))
(+ (cadr rp1) (* (sin jdz ) zk1))
)
rp4 (list (+ (car rp2) (* (cos jdz ) zk1))
(+ (cadr rp2) (* (sin jdz ) zk1))
)
)
(grdraw pt1 pt22 -1)
(grdraw rp1 rp2 -1)
(grdraw rp3 rp4 -1)
(grdraw rp1 rp3 -1)
(grdraw rp2 rp4 -1)
)
;标注座标子程序
(defun drcoord (arg1 arg2 arg3 / toptext bottomtext sidetext changdu
sidpoi pt3 pt4 pt5
)
(cond ((= arg3 1)
(setq toptext (rtos arg1 2 3)
bottomtext (rtos arg2 2 3)
changdu (max (strlen toptext) (strlen bottomtext))
zk (* zg 0.7 (1- changdu) fanxia)
)
)
((or (= arg3 2) (= arg3 3))
(setq toptext (strcat "X=" (rtos (cadr arg1) 2 3))
bottomtext (strcat "Y=" (rtos (car arg1) 2 3))
changdu (max (strlen toptext) (strlen bottomtext))
zk (* zg 0.7 (1- changdu) fanxia)
)
)
)
(setq pt3 (list (+ (car pt2) (* (cos jdz) zk))
(+ (cadr pt2) (* (sin jdz) zk))
)
)
(if (= fanxia 1)
(setq pt4 pt2
sidpoi "ml"
)
(setq pt4 pt3
sidpoi "mr"
)
)
;pt5为下方标注的左点
(setq pt5 (list (+ (car pt4) (* (cos (- jdz pi2)) (* 1.2 zg)))
(+ (cadr pt4) (* (sin (- jdz pi2)) (* 1.2 zg)))
)
)
(command "_.pline" pt1 pt2 pt3 "")
(command "_.text" "j" "bl" pt4 zg (angtos jdz 1 3) toptext)
(setq motext (ssget "l"))
(command "_.text" pt5 zg (angtos jdz 1 3) bottomtext)
(setq motext (ssadd (entlast) motext))
(if (= arg3 2)
(command "_.text" "j" sidpoi pt3 zg (angtos jdz 1 3) (rtos arg2 2 2))
)
)

收起