Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 01/07/2021 in all areas

  1. Here is another example of using DXF code 10 for a pline. I use this a lot. (setq plent (entsel "\nPick pline")) (if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent)))))) The vertice points are in the list co-ord. You can use the VL function also (setq co-ord (vlax-safearray->list (vlax-variant-value (vla-get-coordinates (car plent)))))
    2 points
  2. I made a short function that extends a line with an arc tangent to the line you selected. The function works exactly the same as continuing a polyline only lets you select an object to start with. Anyway, I decided to share it, so here it is: ; Extend line with a line tangent to it - dexus (defun c:tan (/ ang obj obj-end obj-start pt select-data tanpt ~cmd *error*) (defun *error* (msg) (setvar "cmdecho" ~cmd) (princ msg) (princ) ) (setq ~cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (while (not select-data) (setq select-data (entsel "\nSelect line to extend: ")) (if select-data (progn (setq obj (vlax-ename->vla-object (car select-data)) obj-start (vlax-curve-getstartpoint obj) obj-end (vlax-curve-getendpoint obj) pt (trans (cadr select-data) 1 0)) (if (< (distance obj-start pt) (distance obj-end pt)) (setq tanpt obj-start ang (angle '(0 0 0) (vlax-curve-getfirstderiv obj (vlax-curve-getparamatpoint obj tanpt)))) (setq tanpt obj-end ang (angle (vlax-curve-getfirstderiv obj (vlax-curve-getparamatpoint obj tanpt)) '(0 0 0))) ) (command "_.line" "_none" (polar tanpt ang 50.0) "_none" tanpt "" "_erase" "_l" "" "_.pline" "_none" tanpt "_arc" pause) ) (princ "\nNothing was selected, Please select a line!")) ) (setvar "CMDECHO" ~CMD) (princ) ) Hope this is useful to some of you. It was for me since I have to draw a lot of shapes that are tangent.
    1 point
  3. Do as much googling as you can about the company and their products, sounds like an interesting job, good luck.
    1 point
  4. LEE MAC Thenks this is what work for me BASE_YY (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " (itoa(vla-get-ObjectID (vlax-ename->vla-object BASE))) ">%).InsertionPoint \\f \"%lu2%pt3\">%") BASE_YY2 (strcat "%<\\AcExpr " " (ryof(w2u (" BASE_YY "))) \\f \"%lu2\">%") grrr see another reference, go to meesage 10: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/fields-using-coordinates-of-ucs/td-p/5844251 thx again ")
    1 point
  5. Here's a reference: http://help.autodesk.com/view/ACD/2018/ENU/?guid=GUID-163FB50A-B9B2-4292-A1BD-0C872CA441D5
    1 point
  6. Physical mac addresses will not change. Maybe they just need to change this: "select macaddress from win32_networkadapter where macaddress is not null" to this: "Select macaddress from Win32_NetworkAdapter where PhysicalAdapter=TRUE and macaddress is not null"
    1 point
  7. If whoever made the family knew that parameter needed to be scheduled, it wouldn't be a problem. Revit cannot account for poor planning.
    1 point
  8. Where I worked we had grad students come in for 3 months to get there work experience quota to come credentialed, they new very basic autocad we had to hold their hand but by the end of the 3 months we were giving them tasks and they were producing good work, obviously the task was appropriate to the skill level but it meant we did not have to do it and another project was completed. Around 50% were asked to stay on with us, the others did comment that they also got jobs as working for us was seen as a high quality employer on their resume. They were like a sponge and just soaked up what they were shown. "people that could learn things super fast." So if it does not work out at the 1st employer just get up and try again.
    1 point
×
×
  • Create New...